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PROGICIELS, 
MINI, MICRO-ORDINATEURS 
(JOURNÉES GRAND PUBLIC : 18 ET 19 MAI) 


1. 
pure 
Information: SICOB (1) 261.52.42 -— 4, place de Valois - 75001 Paris 


Editorial 


Dès son lancement. Pom's a promis le passage en bimestriel dès que le nombre d'abonnés passerait le 
cap des 2000. Nous avons atteint cet objectif en décembre {deux abonnés sur trois recoivent en outre 
les disquettes). et nous tenons notre promesse : à partir de mars. Vous aurez six numéros par an. à la 
fin de chaque mois impair. Le tirage augmente également. de 7000 exemplaires actuels (tous vendus) à 
12000. afin de pouvoir vous offrir Pom's en kiosque. De nombreux lecteurs nous disent avoir du mal à 
trouver Pom's dans les boutiques de micro-informatique : si c'est le cas. n'oubliez pas de demander à 
votre revendeur d'en commander: sinon. cela ne s'améliorera pas … 


Cette fois-ci, Olivier Herz nous à bien quitté pour le Japon. après trois mois de faux départs. Heureu- 
sement, il nous à laissé quelques contributions ‘posthumes” que nous vous faisons partager avec plaisir. 
Vous trouverez dans ce numéro son programme de ‘Tupe ahead”. qui permet le stockage et la mémo- 
risation des touches que vous enfoncez dans un ‘buffer: bel utilitaire pour les stakhanovistes du 
clavier. 


Nous sommes heureux d'accueillir (enfin) un journaliste non informaticien en la personne de Daniel 
Garric (la page “Futurs” du Point). auteur des ‘Dossiers du Futur’: Daniel a découvert le Macintosh 
en avant-première et il vous raconte ‘son Macintosh. 


Grâce à Gilles Chaygneaud. la disquette de Pom's est ‘parlante” pour la première fois. Vous pourrez, 
avec son programme et un simple magnétocassette. enregistrer de la parole où des chansons dans 
l'Apple qui vous les restituera ensuite à la demande. Sonorisez enfin vos programmes Basic: vous 
“blufferez" tout le monde. Après quelques essais et réglages. vous parviendrez à d'excellents résultats. 
La disquette étant déjà pleine de programmes. nous n'avons pas pu. hélas. mettre divers exemples de 
sonorisation. 


Une contribution inhabituelle pour Pom's en la personne d'Aliénor. présentée par A. Guillez et Y. 
Cherruault Cet article devrait intéresser particulièrement nos lecteurs scientifiques. et il démontre pour 
le moins que l'Apple trouve à s'emplover dans les domaines les plus divers. 

Dans un registre plus large. Guy Lapautre à testé pour vous le traitement de texte Gutenberg et 
Alexandre Avrane à fait de même pour Magic Window. 


Gilles Mauffrey vous propose un programme très simple à utiliser pour tracer des fonctions en haute- 
résolution et Gérard Rigaud présente une routine complète de tri de tableaux. Roland Jost vous 
donne pour sa part une longue liste de POKESs en tous genres. Vous pourrez également rendre l'Apple 
polvglotte avec le Pommesoft de Philippe Faure. 


Enfin, la comparaison de programmes en assembleur où en Applesoft vous sera grandement facilitée 
par les articles de Denis Sureau et Gérard Michel. qui reprend également une rubrique d'initiation à 
l'assembleur. 


Nous aurons l'occasion de nous rencontrer deux fois dans un avenir proche : au Spécial-Sicob (palais 
du CNIT - La Défense). du 14 au 19 mai. où nous occuperons le stand 630 (niveau 3. zone F]. puis la 
semaine suivante à Micro-Expo. du 22 au 26 mai. où nous aurons le stand N44. Vous pourrez venir 
nous ramasser à la petite cuillère le 26 à la clôture … A bientôt donc ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Alexandre Avrane — Gilles Chaygneaud-Dupuy — Y. Cherruault — Michel Crimont Guy d'Herbemont — 
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Michel — Gérard Rigaud — Denis Sureau — Hervé Thiriez. Rédacteurs : Alexandre Avrane — Gérard Michel. Dessins : Laurent Bidot 
Directeur de la publication - rédacteur en chef : Hervé Thiriez Siège social : Editions MEV - 49, rue Lamartine — 78000 Versailles — 
Tél. : (3) 951.24.43, 

Diffusion N.M.P.P. - Sophie Marnez - Tél, : (1} 240.22.01 

Composition : Télécompo - 13-15, avenue du Petit Parc — 94300 Vincennes — Tél : 328.18.63 

Impression : Rosay — 47. avenue de Paris — 94300 Vincennes — Tél. : 328.18.63 
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RENDEZ VOTRE APPLE “ ENCORE PLUS” 
Cartes et accessoires additionnels compatibles APPLE II @ 


FLOPPY-DRIVE POUR APPLE 


8 POUCES MD3 «HITACHI» 5 POUCES 


- Capacité DD : 500 K octets. COMPLET AVEC Compatible Apple avec 
- Nombre de pistes : 80 CONTROLEUR contrôleur 


- Densité : 100 TPI 
- Dimension : 90 x 40 x 150. 29507 
- Poids : 0,8 kg. e 
x Sans contrôleur 
ni coffret 8190 F PROMOTION DISQUETTE POUR FLOPPY 


i s' 4 init 89F 
disquette rigide protégée 5” SF-DD 48 TPI, l'unité rene 
pr 68F | par 10 pièces l'unité &B F, par 50 pièces l'unité 19F 


CARTE D'EXTENSION CARTE 80 COLONNES 
128 K RAM é Engemeenrcem 


l ü 80 car. x 2 [I 
Pour extension du 48 K RAM en 64 K. Compatible jt cu a s de texte BASIC 


FORTRAN PASCAL BASIC Emulation dis e h Entièrem Dé 895; Fonctionne sous CP/M F 

Entièrement équipée sou D AL ou CPIM Utilisation de tout logiciel sous CP/M 995 
. at ÉqUIE Entièrement équipée 

CARTE INTERFACE POUR 8 CARTES D'INTERFAÇAGE 

FLOPPY-DRIVE 


Carte RVB (pour moniteur couleur) 698 F 

CARTE D'UNITE CENTRALE Carte «SPEETCH» en anglais 698 F 

+ 6B0R st Z 80, _ K KIT GOLDEN Carte musicale pour synthétiseur de son 888 F 

L à c d Carte horloge 788 F 

centrale avec 6602 et 280 8360 F A] °° "0 MODEM Res 

Entiécement na. + : Fr: Clavier ASC Il 980 F Carte contrôleur (drive) 5898 F 
{sans ROM} = De sus JÉT Carte de connection 

7 slots d'extensions. Fonctionne sous CP/M Alimentation 220 V. 5 À 799 F série RS 232 C 


us TS 


| Cote. Le CO98 E CARTE INTERFACE BUFFERISÉE 
Rate rs — 8797 F 


Fe sursis : À. : Es FE <i 
68 FRE Alpharumérique. : SAIMENERE | ‘ 5199 ; « à Ÿ 


Majusoules, minuscules, décimales 


ALIMENTATION 220 V. 5 A ; Pour toutes marque CENTRONIC'S - Bufter 


D Programmation lecture/copie Chaque élément peut-être acheté séparément 64 K RAM 
chargement de programme directernent sur 2716 COFFRET pour carte de base Livrée équipée en 16 K 1780" 
Entièrement équipée et pavé numérique {extension jusqu'à 64 K) 
TABLE GRAPHIQUE MONITEUR COULEUR IMPRIMANTE SEIKOSHA 


= RTC en module _ nip-n COMPACTE 
’ Simple à monter 1 s GP 100 A 


Pour reproduction du 
graphisme, connectable 


à la place du Joy-stick " PROMO 2250" 


Interfac 
JOY-STICK { = Er par tra a]ustables & 
[7 P | î) INTERFACES POUR GP100 A 
æ —Ù APPL ou | E avec câble GP 50A SEIKOSHA 
a Î il ZENITH 12” ; 7x vi ° Entraîne ement à friction Graphique 
équipé rimes F \ écrèn vért k Re E sel c e 
sure PROMO Si ET ET EE 1 


Papier pour GP 100 
VENTILATEUR «FAN»  498F ” OCEANIC 3500°} Les 1000 feuiles SRG ER 
14” couleur Ruban encreur GP 100 


Complet avec notice 
* APPLE est une marque déposée et appartient à APPLE COMPUTER S.A. AC a R M Î CR 0 
f ; 1 
| con S ALES € cc C 


lons de régler vos 42, rue de Chabrol, 75010 Paris. 
_ Tél. 770.28.31. 








Saviez-vous que votre Apple peut 
dire quelques mots, sans aucune pro- 
thèse, pour peu que vous les lui ap- 
preniez | 

Cela est possible grâce au système 
"Le Bavard”, qui se compose d’un 
petit module en langage machine et 
d'un programme en Applesoft ser- 
vant d’éditeur. 


Le module PARLE 


Le programme source a été écrit 
avec l’assembleur Dos Tool Kit. 

Ce module permet de mettre sous 
forme numérique des mots préalable- 
ment enregistrés sur un magnéto- 
phone et de les stocker en mémoire. 
Une deuxième sous-routine (voir le 
programme d'édition) permet de res- 
tituer les sons à différentes vitesses. 
soit sur le haut-parleur de l'Apple, 
soit sur un amplificateur extérieur. 


La restitution n'est pas toujours très 
intelligible sur l'Apple, car ce dernier 
ne dispose que d'une seule voix 
pour sortir l'ensemble des fréquences 
simultanées. 


Le programme 
"’BAVARD” 


Il vous propose plusieurs fonctions : 


1 - Enregistrer un texte en mémoire 
à parti d'un  magnétophone 
connecté à l'Apple. Le magnéto- 
phone étant sur écoute, il suffit de 
taper une touche quand arrive le 
texte voulu, puis d'arrêter le stockage 
par la frappe d'une autre touche. 


2 - Ecouter le texte actuellement en 
mémoire. 


3 - Stocker sur disquette le texte qui 
se trouve en mémoire sous forme 
d'un fichier binaire dont vous devez 
préciser le nom. 


4 - Relire en mémoire un texte préa- 
lablement stocké sur disquette. 





Programme BAVARD 


0 REM PROGRAMME "LE BAVARD" 
CAPPLESOFT) E BAVARD 
1 PRINT “BLOADPARLE!i .0BJ" "5 
2 PRINT "BLOADCOCORI CO" 30 NORMAL 
3 FOR I = 2 TO 8 STEP 2: POKE 846 35 POKE 


,254 - I: POKE 0,0: POKE 1,64 40 


: CALL 819: NEXT 
4 POKE 846,254 -— 4 


6 PRINT "BLOÂADBAVARD.MESS" 


10 TEXT : HOME 


15 INVERSE : UTAB 2: PRINT “:"3; SPC( 
122: HTAB 29: PRINT SPCC 12) 70 
3":": UTAB 24: PRINT ":"3 SPC{ 


37)3;"3"; 


20 FOR I = 3 TO 23: VTAB 1: 
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5 - Choisir l'organe de sortie qui 
peut être le haut parleur de l'Apple 
ou un organe extérieur, en passant 
par la sortie magnétophone. 


6 - Editer le catalogue de la disquette 
pour sélectionner les fichiers à relire. 


/ME 


TTEZ- MD 
AU 
COURANT ! 






7 - Changer la vitesse de restitution 
des sons, qui peut aller de 0 à 9, 0 
donnant la voix la plus aiguë et 9 la 
plus grave. 


8 - Visualisation des sons enregistrés 
en mémoire sous forme de courbes 
de fréquence, avec en abscisse 
l'adresse de l’octet et en ordonnée la 
valeur de la fréquence vocale que 
contient cet octet. Les silences cor- 
respondent à des zéros en haut de 


Le Bavard 


Gilles Chavgneaud-Dupuy 


l'écran et l'on va de l’aigu au grave 
en allant du haut vers le bas de 
l'écran. 

Il faut donner en paramètre l'adresse 
de départ de cette visualisation, 0 
étant le début de l'enregistrement. 


Utilisation dans vos pro- 
grammes 


Si vous voulez sonoriser vos pro- 
grammes Applesoft au moyen de 
textes enregistrés par ‘Le Bavard”, il 
faut charger par BLOAD le pro- 
gramme PARLELOBJ et le fichier 
contenant le texte concerné. Ce der- 
nier peut être implanté n'importe où 
en mémoire, mais il faut en préciser 
l'adresse de départ par un POKE aux 
adresses 0 et 1 avant d'appeler le 
module par CALL 819. Par exem- 
ple : 

PRINT CHRS(4) "BLOAD 
PARLE1.OBJ" 

PRINT CHR$(4)'BLOAD COCO- 
RICO.,A$4000" 

POKE 0,0 : POKE 1,64 

CALL 819 


Pour faire varier la vitesse, il faut ef- 
fectuer un ‘POKE 846, 252-V" 
avant l'appel du module, V étant un 
chiffre compris entre 0 et 9. 


Pour gérer une table de mots à pro- 
noncer (afin de sonoriser le clavier, 
par exemple), il faut les séparer les 
uns des autres dans leur représenta- 
tion numérique par un octet conte- 
nant $FF, qui marque la fin de l’en- 
registrement. Indiquez ensuite 
l'adresse de début du mot voulu 
avant chaque appel au module 
PARLE1.OBJ. 


1: PRINT * ";: HTAB 40: PRINT 
“ ";: NEXT | 
22 UTAB 1: HTAB 15: PRINT ": 


ss HTAB 15: PRINT "3: L 


:":2: HTAB 15: PRINT 


- 16368,0 
HTAB 6: UTAB 6: PRINT "1-ENREG 
ISTRER UN TEXTE" 


50 HTAB 6: UTAB 8: PRINT "2-ECOUT 


ER UN TEXTE" 
60 HTAB 6: VTAB 10: 
ER UN TEXTE SUR DISQUE" 
HTAB 6: UTAB 12: PRINT “4-CHAR 
GER UN TEXTE EN MEMOIRE" 


PRINT "3-SAUV 


80 HTAB 6: VUTAB 14: PRINT "S-SELE 


HTAB 


CTIONER LA SORTIE“ 








7 


PE 


2318 
pas: 
FA 
re: 
328 
iE 
PAT : 
pa 
[8 
ee: 
“+ 
pr 
3 
pures 
Œ 
Le 
5 
EE 
& 
EZ:4 
L 
1 
% 
RSS 
r 











0300: 1 OR6 $300 PROGRAMME PARLE 
C030: 2 BRUIT  EQU $C030 
C060: 3 CASSET EQU $C060 
0060: 4 ADD EQU 0 
C000: 5 CLAVIER EQU $C000 
0006: 6 SON EQU $4 
0007: 7 FREB  EQU $7 
0300:40 00 8 DEBUT LDY 40 
0302:84 07 9 STY FRER 
0304:E6 07 10 INC FREG 
0306:AD 60 CO 11 LDA CASSET 
0309:85 0é 12 STA SON 
030B:AD 460 CO 13 INF LDA CASSET 
030E:45 06 14 EDR SIN 
0310:30 04 15 EMI SUIVAN 
0312:Eé6 07 16 INC FREQ 
0314:D0 F5 17 BNE INF 
0316:A5 07 18 SUIVAN LDA FREQ 
ARR 


8 


90 
92 
95 
97 


99 
100 
110 


1000 
1010 


1015 


1020 
1025 
1030 
1040 


1050 
1990 
2000 
2010 
2020 
3000 
3010 


3020 
3990 
4000 
4005 


4010 
4020 


HTAB 6: UTAB 16: PRINT "é—AFFI 
CHER LE CATALOGUE" 
HTAB 6: UTAB 18: PRINT "7-CHAN 
GER LA VITESSE D’ECOUTE" 
HTAB 6: UTAB 20: PRINT "8-VISU 
ALISER UN TEXTE "“ 
HTAB 6: VTAB 22: PRINT "9-SORT 
IR DU PROGRAMME" 
IF N = 0 GOTO 2000 
HTAB 35: UTAB 22: GET N 
ON N GOTO 1000,2000,3000,4000 
,5000,6000,7000,8000,9000 

HOME 

UTAB 10: PRINT "VOUS METTEZ 
VOTRE MAGNETOPHONE EN ROUTE E 
T VOUS APPUYEZ SUR RETURN POU 
R DEBUTER L’ENREGISTR 
EMENT * 

PRINT "PUIS APPUYEZ DE NOUVE 
AU SUR RETURN POUR L'ARR 
ETER." 

INPUT À$ 

POKE 00,00: POKE 01,64 

CALL 768 


FIN = PEEK (01) x 256 + PEEK 
(00) 

LG = FIN - 16384 + 10 

GOTO 10 


POKE 00,00: POKE 01,64 

CALL 819 
N = 1: GOTO 10 

HOME 

UTAB 10: INPUT "NOM DU FICHI 
ER À SAUVER 7 ";A$ 

PRINT "BSAVE" :A$:",4$4000 ,L" 


VTAB 10: INPUT "NOM DU TEXTE 
À CHARGER ? ":ÂA$ 

PRINT *“BLOAD" ;A$;",A$4000" 
LG = PEEK (43616) + PEEK (4 


Programme PARLE1.S 
DOS TOOL KIT 


4990 
5000 
9010 


5020 
5030 


2040 


5050 


3617) * 256 

GOTO 10 

HOME 

UVTAB i0: PRINT “UOULEZ VOUS 
ECOUTEZ VOTRE TEXTE :" 


PRINT “ A-SUR L'APPLE" 
PRINT “ B-SUR UN AMPLI EXTE 
RIEUR" 

PRINT : INPUT "UOTRE CHOIX ? 
"A8 

IF A$ = "A" THEN POKE 851,4 


8: GOTO 10 


5060 IF À$ = "B" THEN POKE 851,3 
2: GOTO 10 

5070 GOTO 5000 

5990 GOTO 10 

6000 PRINT : PRINT CHR$ (4)"CATA 
LOG" 

6015 INPUT ÀA$ 

6020 GOTO 10 

7000 HOME 

7005 VU = 252 - PEEK (846) 

7010 UVTAB 10: PRINT "LA VITESSE E 
ST ACTUELLEMENT DE ";V 

7020 PRINT : PRINT " À COMBIEN 
LA VOULEZ VOUS ? "3: GET VU 

7030 POKE 846,252 - VU 

7040 GOTO 2000 

8000 HOME 

8002 VUTAB 22: INPUT “ADRESSE DEBU 
T À VISUALISER ";4$ 

8004 IF A$ = “" THEN TEXT : GOTO 
10 

8005 HGR : HCOLOR= 3 

8006 A = VAL (AS) 

8010 FOR 1 = O0 TO 259 

8020 Y = PEEK (16384 + À + 1) 

8025 Y = Y / 255 * 160 

8030 HPLOT 1,Y 

8040 NEXT 

8050 GOTO 8000 

9000 END 

0318:C9 FF 19 CNP H$FF 

0314:D0 02 20 BNE x+4 

031C:A9 FE 21 LDA W$FE 

031E:91 00 22 STA (ADD) ,Y 

0320:E6 00 23 INC ADD 

0322:D0 02 24 BNE ADD? 

0324:Eé 01 25 INC ADD+1 

0326:2C 00 CO 26 ADD2 BIT CLAVIER 

0329:30 03 27 BNI FIN 

032B:4C 00 03 28 JP DEBUT 

032E:A9 FF 29 FIN LDA #$FF 

0330:91 00 30 STA (ADD),Y 

0332:60 31 RTS 

0333:B1 00 32 DIT  LDA (ADD),Y 

0335:95 06 33 STA SN 

0337:C9 FF 34 CMP H$FF 

0339:F0 F7 35 BEQ FIN+4 

033B:2C 00 CO 34 BIT CLAVIER 

033E:30 F2 37 BNI FIN+4 

0340 :48 38 pHA 
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0341 :EA 39 BOUCLE2 NOP 


035B:4C 33 03 57 
0352:A0 30 CO 53 


JMP DIT 
LDA BRUIT 


Récapitulation 


0300- A0 00 84 07 Eé 07 AD 60 
0308- CO 85 06 AD 60 CO 45 06 
0310- 30 04 Eé 07 DO F5 A5 07 
0318- C9 FF DO 02 A9 FE 91 00 
0320- Eé 00 D0 02 Eé 01 2C 00 


0328- C0 30 03 4C 00 03 A9 FF 
0330- 91 00 60 B1 00 85 06 C9 
0338- FF FO F7 2C 00 CO 30 F2 


0340- 48 EA EA FA EA EA EA EA 
EA C 


0342:EA 40 NOP 
0343:EA 4i NOP 
0344:EA 42 NOP 
0345:EA 43 NOP 
0346:EA 44 NOP 
0347:EA 45 NOP 
0348:EA 4é NOP 
0349:EA 47 NOP 
034A:EA 48 NOP 
034B:Cé6 06 49 DEC SON 
034D:D0 F2 50 BNE BOUCLE? 
034F :68 sl PLA 
0350:F0 03 32 BEQ SAUT 
0355:E6 OÙ 54 SAUT INC ADD 
0357:D0 DA 59 BNE DIT 
0359:E6 01 dé INC ADD+{ 


0348- EA EA 6 Dé DO F8 68 
0350- FO 03 AD 30 C0 Eé 00 DO L 
0358- DA Eé 01 4C 33 03 Î 





Une astuce pour supprimer les REMs 


S'il est vrai que les REMs ralentissent 
et encombrent un programme, il ne 
l'est pas moins qu'elles contribuent 
souvent à sa bonne compréhension 
pour quiconque ne l'a pas écrit. 

La solution consiste donc à conserver 
deux versions d'un même pro- 
gramme, avec et sans commentaires. 
ce qui justifie le besoin d’une procé- 
dure automatique de suppression des 
REMs à l'intérieur d'un programme 
en Applesoit. 


Celle que je vous propose repose sur 
un principe très simple : si l'on rem- 
place tous les codes REM (178) par 
00, le programme n'est plus exécuta- 
ble mais il se liste normalement sans 
les REMs (le O0 étant interprété 
comme une fin de ligne). Il suffit 
donc de stocker cette liste dans un 
fichier texte NEW-LIST, et de faire 


"NEW" puis "EXEC NEW-LIST”, 
pour récupérer en mémoire une ver- 
sion exécutable du programme, sans 


REMs, qu'il ne reste qu'à sauvegar- 
der. 


Le programme FAIT SANS-REM listé 
ci-après construit un fichier SANS- 
REM qui réalise les opérations sui- 
vantes : 


® Chargement en mémoire des 
lignes 60005 à 60096. Ce petit 
programme assure la transforma- 
tion des codes REM et la sauve- 
garde de la liste en résultant dans 
le fichier NEW-LIST. 

e Exécution de l'ordre “RUN 
60005" pour effectuer le traite- 
ment ci-dessus. 

e Exécution de "NEW puis "EXEC 
NEW-LIST” pour récupérer en 


Guy d'Herbemont 


mémoire le programme original 
modifié. 
Une fois ce fichier construit, l’utilisa- 
tion de la procédure se réduit à : 


e LOAD ‘Programme à modifier” 
e EXEC SANS-REM 


Un LIST à l'issue des opérations 
vous permettra de vérifier que les 
REMs ont bien disparu (les ”:” qui 
précèdent éventuellement les instruc- 
tions REM sont en revanche conser- 
vés), et il ne vous reste plus qu'à 
sauver la version allégée de votre 
programme. 


À noter que les lignes 60005 à 
60096 ne doivent impérativement 
contenir aucune REM et que. bien 
sûr, le programme original ne doit 
comporter aucune ligne de numéro 
supérieur à 59999, [| 








Programme FAIT SANS-REM 60020 


1 REM PROGRAMME POUR CONSTITUER 60027 
2 REM LE FICHIER EXEC 60030 
3 REM "SANS-REM" 60040 
4 REM === 

60050 
10 D$ = CHR$ (13) + CHR$ C4):NS = 60060 


“SANS-REM" : PRINT D$"OPEN"N$D 

$"DELETE"N$D$" OPEN"N$DS$"WRITE 60070 

"NS 60072 
20 POKE 33,30: LIST 60005,: PRINT 

“RUN 60005": PRINT "NEW": PRINT 

"EXEC NEW-LIST": PRINT D$"CLO 


SE": TEXT : END 60080 


60005 DEB = 2049 60090 
60010 X = DEB + 3 60095 
60015 X = X + 1:BYT = PEEK (X) 60096 
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IF BYT = 0 THEN GOSUB 6004 
0: ON DEB = 0 GOTO 60070: ON 


DEB < > 0 GOTO 60010 
IF BYT < > 178 GOTO 60015 
POKE X,0 
GOSUB 60060: ON DEB = O0 GOTO 


60070 
GOTO 60010 


DEB = PEEK (DEB) + 256 *  PEEK 
(DEB + 1): RETURN 

POKE 33,30 

D$ = CHR$ (13) + CHR$ (4): 


N$ = "NEW-LIST": PRINT D$"OPE 
N'NSD$" DELETE"NS$DS$" OPEN"N$DS$" 
WRITE"NS 


LIST ,59999 
PRINT D$"CLOSE" 
TEXT : HOME 

END 











Apprentissage de l’assembleur 


Gérard Michel 


Cet article constitue la reprise d'une 
série abordée dans les premiers nu- 
méros de Pom's. Si l’on en juge par 
votre courrier, vous étiez nombreux à 
souhaiter le retour d'une rubrique 
consacrée à l'apprentissage de l'as- 
sembleur; nous allons donc nous ef- 
forcer de vous donner satisfaction, 
conformément aux objectifs de cette 
revue. 


Rappelons tout d'abord, pour éviter 
toute confusion, que l’assembleur est 
déjà un langage évolué”, à ne pas 
confondre avec le langage machine. 
En matière de logiciel (et en simpli- 
fiant), la seule chose que votre Apple 
puisse comprendre sans l'aide du 
moindre compilateur ou interpréteur. 
c'est de l’hexadécimal, autrement dit 
des codes comme ceux que vous 
trouvez dans Pom's à la suite d'un 
programme en assembleur sous le 
titre récapitulation” (20 C1 FB … 
par exemple). 


Un assembleur est donc un langage 
constitué d'instructions plus facile- 
ment compréhensibles que l'hexadé- 
cimal, théoriquement plus faciles éga- 
lement à mémoriser (pour les 
anglicistes du moins), doublé d'un 
traducteur” qui transforme automa- 
tiquement ces instructions en code 
exécutable par la machine (cette 
opération est : baptisée ‘assem- 
blage”). C'est pourquoi l'on parle 
toujours de programme source (en 
langage assembleur) et de pro- 
gramme objet (en hexadécimal), ré- 
sultat de la traduction du premier. 
Cela signifie en particulier que vous 
ne pouvez pas programmer en as- 
sembleur si vous ne possédez pas un 
logiciel ‘’éditeur/assembleur” tel que 
LISA, BIG MAC, DOS TOOL KIT 
ou autre, autant de noms qui doivent 
vous être maintenant familiers si vous 
êtes un fidèle lecteur de Pom's. Par 
contre, vous pouvez toujours écrire 
un programme par le biais du code 
hexadécimal, du moins dans un pre- 
mier temps, ne serait ce que pour 
vous faire une idée de ce que pour- 
rait vous apporter l’assembleur. C'est 
pourquoi nous vous donnerons dans 
cet article le code correspondant à 
chacune des instructions présentées: 
de plus, dans toute la mesure du 
possible, nous vous fournirons une 
version des opérations réalisées sous 
forme d'instructions en Applesoft, ce 
qui devrait aider à l'analyse et à la 
compréhension des mécanismes mis 
en oeuvre, que nous allons aborder 
sans plus attendre. 





Variables et registres 


Comme tous les langages, l'assem- 
bleur permet de travailler sur et avec 
des variables. En première approxi- 
mation, une variable est une case 
mémoire contenant un octet (deux 
chiffres hexadécimaux), définie par 
son adresse. Ainsi, $6 (soit 6 en déci- 
mal) ou $18 (soit 24 en décimal). 
par exemple, peuvent constituer 
l'adresse d'une variable dans laquelle 
le programme ira lire ou stocker des 
valeurs. Rappelons que, par conven- 
tion, un nombre précédé de $ est 
toujours un nombre hexadécimal. 

Il est d’ailleurs important de distin- 
guer dès maintenant la variable (ou 
l'adresse) et son contenu. Lorsque 
l’on écrit simplement $18, on fait ré- 
férence à la case mémoire dont 
l'adresse hexadécimale est $18: si 
l'on écrit #$18 par contre, on dési- 
gne la valeur $18 (ou 24 en déci- 
mal). De même, chaque fois qu'une 
instruction de l’assembleur porte sur 
la manipulation d'une variable, c'est 
son contenu qui s'en trouve affecté 
(en BASIC, A=B transfère également 
le contenu de B dans À mais ne 
remplace pas le À par un B). 

Notons en outre une différence de 
régime, sur laquelle nous reviendrons 
plus tard, entre les adresses dites 
‘page zéro” et les autres. Une 
adresse est en page zéro si elle est 
inférieure à 256 (de $0 à $FF en 
hexadécimal) et peut donc être re- 
présentée par un seul octet. 


Affectation d’une valeur 


En mode immédiat, l'affectation 
d'une valeur à une variable peut se 
faire directement. Supposons par 
exemple que l'on veuille mettre 
#$FF (soit 255 en décimal) à 
l'adresse $18. en partant du BASIC, 
le processus serait le suivant : 


CALL —151 (pour accéder au moni- 
teur) 

x18: FF "RETURN" (l'étoile est le 
“prompt” du moniteur et est affichée 
par le système, le reste doit être tapé 
au clavier, sans oublier les ”:”). "RE- 
TURN" signifie tout simplement ‘Ap- 
puyer sur la touche RETURN”. 


Ceci est équivalent à l'instruction Ap- 
plesoft : POKE 24,255 "RETURN". 
Pour lire le contenu de l'adresse $18 
à partir du moniteur, tapez : 

18 "RETURN" 

et la machine répondra : 

*0018-FF 

Vous auriez pu obtenir le même ré- 
sultat (255 en l'occurrence) avec les 


instructions PRINT 


PEEK(24). 


Les opérations de lecture/écriture du 
contenu d'une variable à partir d’un 
programme en assembleur supposent 
l'emploi des registres du micropro- 
cesseur car, si l'on peut faire 
"A=255" en BASIC. on ne peut pas 
faire directement "$18=-#$FF" en 
assembleur (la définition directe de 
constantes est toutefois possible, mais 
ce n'est pas notre propos pour l'ins- 
tant). Un registre peut se définir 
comme une variable particulière, 
dont le nom reste toujours le même, 
que le microprocesseur utilise pour 
communiquer avec la mémoire de 
l'ordinateur. La ‘case mémoire” cor- 
respondant à un registre se trouve, 
en quelque sorte, dans le micropro- 
cesseur et le programmeur n'a jamais 
besoin de la définir lui-même. 

Dans ce domaine, trois registres peu- 
vent nous être utiles : l’accumulateur 
(désigné plus simplement par A), le 
registre d'index X et le registre d'in- 
dex Y. Chacun de ces registres peut 
contenir un octet et prendre ainsi 
une valeur comprise entre 0 et 255 
($0 et $FF). 

Si nous nous acharnons toujours à 
mettre #$FF dans la case $18, trois 
séquences d'instructions sont ainsi 
disponibles : 


1} LDA #$FF (A9 FF) 

STA $18 (85 18) 
ce qui signifie charger accumulateur 
(LoaD A) avec la valeur #$FF” puis 
“stocker la valeur de A (STore A) 
dans la case d'adresse $18”. En Ap- 
plesoft, cela pourrait  s’écrire: 
A=255:POKE 24,A 
Les codes entre parenthèses ne sont 
pas de l’assembleur mais correspon- 
dent à ce qu'il faudrait taper au cla- 
vier pour rentrer ces instructions di- 
rectement en hexadécimal. Ainsi, A9 
est le code de LDA lorsque celui-ci 
est suivi d'une valeur (FF) et 85 est 
le code de STA lorsque celui-ci est 
suivi d'une adresse en page zéro 
(18). Si vous voulez par exemple im- 
planter ces instructions à partir de 
l'adresse $300 (768 en décimal), il 
vous faudra taper, à partir du moni- 
teur (derrière l'étoile de prompt”) : 
300: A9 FF 85 18 “RETURN” 
Si vous tapez ensuite : 
300L “RETURN” 
le système vous répondra : 
300-A9 FF LDA #$FF 
302-85 18 STA $18 
plus d’autres choses sans signification 
pour nous et qui dépendent de ce 
qui se trouve dans votre Apple à par- 
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tir de l'adresse $304 au moment où 
vous exécutez ce test. 

La commande "L” (pour LIST), 
tapée derrière une adresse, demande 
en effet au moniteur d'essayer de dé- 
sassembler les codes hexadécimaux 
stockés à partir de cette adresse pour 
en faire 20 lignes d'instructions en 
langage assembleur. Bien sûr, le ré- 
sultat en est plus ou moins cohérent 
selon les codes rencontrés, mais 
n'oubliez pas cette aide que peut 
vous apporter le système car elle 
s'avère toujours utile pour le déchif- 
frage de routines dont on ne possède 
pas le programme source. 


2) LDX #$FF (A2 FF) 

STX $18 (86 18) 
Compte tenu de ce qui précède, la 
signification de ces deux instructions 
ne doit plus vous échapper (on passe 
par le registre X au lieu de passer par 
l'accumulateur). 


3) LDY #$FF (AO FF) 
STY $18 (84 18) 
Même chose avec le registre Y. 


Utilisation d’étiquettes 


Les assembleurs symboliques” (tou- 
jours LISA, BIG MAC ...), permettent 
de donner un nom, ou une étiquette, 
aux variables. Cela rend le pro- 
gramme source plus parlant et plus 
facile à analyser : LIGNE. par exem- 
ple, est d'une interprétation plus di- 
recte que $C6. En outre, l'affectation 
d'une étiquette simplifie considéra- 
blement la mise à jour d'un pro- 
gramme source si l'on se trouve 
contraint, pour une raison où pour 
une autre, de modifier l'adresse 
d'une variable. Il suffit alors de chan- 
ger la définition de l'étiquette, alors 
qu'il faudrait autrement rechercher 
tous les endroits où apparaît 
l'adresse concernée pour la modifier. 
D'un assembleur à l’autre, la défini- 
tion de ces étiquettes revêt une syn- 
taxe légèrement différente. Pour 
notre chère adresse $18. on pourrait 
ainsi avoir : 

ADR EPZ $18 (si on veut l'appeler 
ADR), ou 

ADR EQU $18, ou 

ADR = $18 

C'est à la documentation de votre 
assembleur qu'il faut vous reporter 
pour connaître la bonne syntaxe. 
Notons simplement qu'une étiquette 
doit toujours être définie quelque 
part dans le programme source pour 
être utilisée dans une instruction sans 
provoquer d'erreur à l'assemblage {la 
solution la plus claire consiste à les 
mettre toutes en tête de programme, 
comme le font les auteurs des articles 
publiés dans Pom's). 


Pour en revenir à notre exemple, si 
l'on suppose que l'on à baptisé la 
case $18 du nom ADR, on pourrait 
écrire en assembleur : 

LDA #$FF (A9 FF) 
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STA ADR (85 18) 

Notez que le nom symbolique n'est 
valable -que pour le programme 
source; le code hexadécimal reste 
toujours le même et fait référence à 
$18. 

En Applesoft, cela reviendrait à : 
ADR=24:A=255:POKE ADR.A 


Lecture d’une case mémoire 


Pour lire le contenu d'une case-mé- 
moire, les trois registres peuvent éga- 
lement être utilisés, d'où trois solu- 
tions disponibles : 


1) LDA $18 ou LDA ADR (AS 18) 
2) LDX $18 ou LDX ADR (A6 18) 
3) LDY $18 ou LDY ADR (A4 18) 


Ces trois instructions reviennent à 
charger respectivement l'Accumula- 
teur, le registre X ou le registre Y, 
avec le contenu de l'adresse $18. 


Vous aurez sans doute remarqué que 
les codes des instructions LDA, LDX 
et LDY ne sont pas les mêmes que 
lorsqu'on leur donnait directement la 
valeur #$FF. Chaque type d'opéra- 
tion possède un code particulier: 
ainsi : 

1) Pour LDA : 


e LDA valeur = A9 valeur (exem- 
ple : LDA #$30 = A9 30) 

e LDA contenu d'une adresse en 
page zéro = A5 adresse (exem- 
ple : LDA $24 = A5 24) 

e LDA contenu d'une adresse hors 
de la page zéro = AD octet bas 
de  l'adresse/octet haut de 
l'adresse. 

Lorsqu'une adresse s'écrit sur deux 
octets, soit 4 chiffres hexadécimaux, 
l'octet bas correspond aux deux chif- 
fres de droite et l'octet haut aux 
deux chiffres de gauche. Par exem- 
ple : 

LDA $300 = AD 00 03 

LDA $FDED = AD ED FD 

C'est une sale manie, mais l'Apple 

prend toujours les adresses à l'envers 

de cette façon ! 


2) Pour LDX 


e LDX valeur = A2 valeur 

e LDX contenu d’une adresse page 
zéro = A6 adresse 

e LDX contenu d’une adresse quel- 
conque = ÂE octet bas/octet haut 
(exemple: LDX $40F = AE OF 
04) 


3) Pour LDY 


e AO valeur 
e Ad adresse 
e AC octet bas/octet haut 


Opérations sur les regis- 
tres 
Nous ne présenterons pour l'instant 


que celles qui nous seront utiles pour 
la suite de cet article. 


1) INX (code E8) : incrémente X de 





1 (équivalent à X=X+1). 

2) DEX (code CA): décrémente X 
de 1 (équivalent à X=X—1). 

3) INY (code C8) : incrémente Y de 
4) DEY (code 88) : décrémente Y de 
1. 

5) TAX (code AA): transfère le 
contenu de À dans X, sans modifier 
celui de À (équivalent à X=A). 

6) TAY (code A8): transfère le 
contenu de À dans Y (Y=A). 

7) TXA (code 8A): transfère le 
contenu de X dans À (A=X). 

8) TYA (code 98): transfère le 
contenu de Ÿ dans À (A=Y). 


Egal à zéro ou différent 
de zéro ? 


Parmi les instructions de test et de 
branchement disponibles en assem- 
bleur, deux nous seront également 
utiles dans un futur immédiat : 


1) BEQ (code F0) 


En Applesoft, l'instruction BEQ serait 
équivalente à IF ‘dernier résultat”=0 
THEN branchement. 

Si le dernier résultat n'est pas nul, on 
passe simplement à l'instruction sui- 
vante. 

Compte tenu des instructions que 
nous avons déjà examinées, nous 
pouvons dire à ce stade que le “der- 
nier résultat” en question correspond 
à la valeur du dernier registre mani- 
pulé. Par exemple : 


e Après LDA $18, BEQ provoquera 
un branchement si $18, et donc 
l'accumulateur, contient 0. 

e Après DEY, BEQ provoquera un 
branchement si Y tombe à (. 

e Après TXA, BEQ provoquera un 
branchement si X, et donc A, 
contient 0 


L'endroit vers lequel s'effectue le 
branchement ne pose pas de pro- 
blème si l'on écrit un programme 
source en assembleur symbolique. 
Comme pour les variables, il est en 
effet possible de mettre des étiquettes 
en regard des instructions: le bran- 
chement se fait alors par référence à 
cette étiquette (voir plus bas). Si l'on 
travaille directement au niveau de 
l'hexadécimal, il faut alors savoir que 
BEQ ne fait pas de branchement sur 
une adresse, mais en fonction d'un 
déplacement vers le haut ou vers le 
bas. La valeur de ce déplacement 
doit suivre le code FO. Voici quel- 
ques exemples : 


e FO 00: le branchement se fait à 
l'octet qui suit O0 (si le FO se 
trouve à l'adresse $300, BEQ 
branchera à l'adresse $302 si le 
dernier résultat est nul). Une telle 
instruction serait donc inutile puis- 
que l’on arriverait à la même 
adresse quel que soit le résultat du 
test. à 
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e FO O1: branchement à ‘adresse 
de FO + 3” 

e FO 02: branchement à ‘adresse 
de FO + 4” 

e FO FF: branchement à ‘adresse 
de FO + 1” (ce qui provoquera 
une erreur puisque l’on retombe 
sur FF, qui n’est pas le code d’une 
instruction). La valeur $FF corres- 
pond en fait à —1 en décimal: 
lorsqu'il lit” FO, le microproces- 
seur ‘pointe” aussitôt vers l'octet 
suivant (FF en l'occurrence), de 
même lorsqu'il lit le FF qui recule 
le pointeur de 1 et le ramène 
donc sur FF. 

e FO FE : branchement sur l'adresse 
de F0 (boucle infinie !} 

e FO FD: branchement à ‘adresse 
de FO — 1” 

e FO FC: branchement à ‘adresse 
de FO — 2” 


De manière générale, si A est 
l'adresse à laquelle se trouve le code 
FO, un déplacement compris entre 
$0 et $7F branchera sur une adresse 
comprise entre A+$2 et A+$81 (+2 
à +129 en décimal), tandis qu'un 
déplacement compris entre $FD et 
$80 branchera sur une adresse 
comprise entre A—$1 et A—$7C (—1 
à —124 en décimal). Cela signifie en 
particulier que, à partir d’une adresse 
À, on ne peut effectuer de saut ‘en 
avant” que jusqu'à A+129, et de 
saut ‘en arrière” que jusqu'à 
A—124. 

Il est clair que tout ceci n’est pas sim- 
ple à manipuler, et l’assembleur sym- 
bolique est vraiment d'un grand se- 
cours pour tout ce qui concerne les 
branchements, car il calcule le dépla- 
cement à votre place. 


2) BNE (code DO) 


En Applesoft, BNE pourrait se tra- 
duire par IF ‘dernier résultat” <>0 
THEN branchement (vous deviez 
vous en douter un peu...). 

Les principes sont identiques à ceux 
qui régissent l'instruction BEQ en ce 
qui concerne le. ‘dernier résultat” et 
les branchements. 


Les modes d’adressage 
Adressage direct indexé 


Nous avons déjà rencontré la techni- 
que d'adressage la plus simple, que 
lon peut baptiser ‘adressage ab- 
solu”, qui consiste à donner directe- 
ment l'adresse de chaque variable 
(ainsi dans STA $18 ou LDA $06). 


Supposons maintenant que l'on 
veuille mettre la valeur O dans les 
adresses $8001 à $800A. Une solu- 
tion consisterait à faire successive- 
ment référence aux adresses $8001, 
$8002, $8003... Ce n'est certaine- 
ment pas la plus économique en 
place-mémoire, ni en effort muscu- 
laire au clavier. 


Il est heureusement possible d'utiliser 
les registres X et Y pour effectuer ce 
travail à moindre coût (ce qui vous 
expliquera par la même occasion leur 
nom de registre ‘’index”). Les ins- 
tructions suivantes réalisent l’opéra- 
tion : 

LDA #0 (A9 00) 

LDX #$0A (A2 OA) 

STOCKE STA $8000,X (9D 00 80) 
DEX (CA) 

BNE STOCKE (DO FA) 

En Applesoft, cela pourrait s’écrire : 
10 A=0 

20 X=10 

30 ST=32768 (soit $8000) 

40 POKE ST+X A 

50 X=X-1 

60 IF X<>0 THEN 40 

La valeur de X est ajoutée à 
l'adresse de base ($8000, donnée ici 
en clair, mais qui peut être égale- 
ment une adresse symbolique 
comme ADR avec STA ADR,X) pour 
donner l'adresse définitive où est sto- 
ckée la valeur 0. X passe ainsi de 10 
à O (instruction DEX); tant qu'il est 
différent de O0, on “remonte” à l'ins- 
truction de stockage à l'adresse cal- 
culée (indexée): lorsqu'il est nul, le 
branchement ne se fait plus et on 


passe alors à l'instruction suivant 
BNE STOCKE. 


Le même résultat serait obtenu avec 
le registre Y : 


LDA #0 (A9 00) 

LDY #$0A (AO OA) 

STOCKE STA $8000,Y (99 00 80) 
DEY (88) 

BNE STOCKE (D0 FA) 


L'instruction LDA, comme STA, peut 
utiliser l'adressage indexé par X ou 
Y. Les différents codes hexadéci- 
maux sont listés ci-dessous : 


1) Pour LDA (ADS désigne une 

adresse symbolique) : 

e LDA adresse quelconque,X = BD 
octet bas/octet haut =  LDA 
$aaaa,X ou LDA ADS,X 

e LDA adresse quelconque,YŸ — B9 
octet bas/octet haut — LDA 
$aaaa,Ÿ ou LDA ADS,Y 

e LDA adresse page zéro.X = B5 
adresse = LDA $aaX ou LDA 
ADS,X 

e Pas d’adressage indexé par Ÿ en 
page zéro. 

2) Pour STA : 

e STA adresse X = JD  octet 
bas/octet haut = STA $aaaa,X ou 
STA ADS,X 

e STA adresse, Y — 99  octet 
bas/octet haut = STA $aaaa,Ÿ ou 
STA ADS, Y 

e STA adresse page zéro,X — 95 
adresse = STA $aaX ou STA 
ADS,X 


Chacun des registres permet d’adres- 
ser une zone de mémoire de 256 
octets, d'une adresse de base $A jus- 


qu'à $A+$FF. Il faut bien se rappe- 
ler que, quel que soit le type d'in- 
dexation, l’adressage ne peut porter 
que sur 256 octets à partir d'une 
même adresse de base; si l’on doit 
travailler sur une zone plus grande, il 
devient nécessaire de manipuler éga- 
lement cette adresse. De manière gé- 
nérale, l'adresse variera selon un pas 
de 256 octets, par exemple : $8000 
(on peut aller de $8000 à $80FF 
avec un index), $8100 (de $8100 à 
$81FF avec un index)... Vous aurez 
certainement noté que cette variation 
se traduit par une incrémentation de 
1 en 1 de l’octet haut de l'adresse. 


Adressage indirect indexé 


Il nous reste à voir une technique 
d'adressage plus complexe mais qui 
n'est pas moins utilisée pour autant, 
au contraire. Elle fait appel à l'in- 
dexation par X ou YŸ, mais elle est 
dite également  ‘indirecte” car 
l'adresse définitive est calculée à par- 
tir de la valeur contenue dans 
l'adresse de base et non à partir de 
l'adresse de base elle-même. Cette 
dernière (baptisons la AD) doit obli- 
gatoirement se trouver en page zéro 
et le système prendra l'adresse 
contenue selon le principe: valeur 
contenue dans AD=octet bas de 
l'adresse et valeur contenue dans 
AD+1=octet haut de l'adresse. 


Adressage pré-indexé par X 


Le mécanisme en est le suivant : 
e soit AD l'adresse de base en page 
0 


e le système lui ajoute la valeur de 
X 


e le contenu de AD+X et AD+X+1 
donne une adresse AO sur laquelle 
portera le travail effectif de lec- 
ture/écriture. 


En Applesoft, cela reviendrait à une 
suite d'instructions du type : AD=6: 
X=2 : AX=AD+X : AO = 
PEEK(AX)+256+*PEEK(AX+1) : 
POKE A0,0 (si l'on veut, par exem- 
ple, mettre 0 dans AO). 

Du fait que les adresses contenues 
comportent toujours deux octets, 
même si elles sont inférieures à 256 
(l'octet de poids fort vaut alors 0), X 
ne doit prendre que des valeurs mul- 
tiples de 2 pour que l'adressage 
donne un résultat cohérent (0 pour 
atteindre la première adresse, 2 pour 
la seconde...) 


Cette technique d'adressage permet 
de gérer des tables de “pointeurs” 
stockées en page zéro à partir d’une 
adresse donnée (chaque adresse 
contenue pointe vers une adresse dé- 
finitive à manipuler par le pro- 
gramme). Elle autorise également 
l'usage d'adresses calculées par le 
programme (ou par l'Apple lui- 
même) et que vous ne connaissez 
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pas encore au moment où vous 
l'écrivez : il vous suffit de choisir une 
adresse de base en page zéro, à par- 
tir de laquelle seront stockés les ré- 
sultats des calculs, et d'écrire votre 
programme en faisant uniquement 
référence à cette adresse. 

Les instructions LDA et STA peuvent 
faire appel à cette technique. avec la 
syntaxe suivante : 


e LDA (ADR.X) = Al adresse page 
zéro = LDA ($aa.X) 

e STA (ADR.X) = 81 adresse page 
zéro = STA ($aa.X) 


Adressage post-indexé par 


Les principes sont identiques en ce 
qui concerne l'adresse base en page 
zéro et l'adresse contenue, mais le 
fonctionnement de l'indexation est 
radicalement différent : 


e soit AD l'adresse de base, 

e elle contient une adresse AO, 

e le systéme ajoute la valeur de Y à 
AO pour obtenir l'adresse défini- 
tive. 


En Applesoft : AD=6 : 
AO=PEEK{(AD)+256*PEEK(AD+ 1) : 
Y=]1 : POKE AO+Y.0 (par exemple). 
L'indexation s'applique donc à 
l'adresse contenue et non plus à 
l'adresse de base. 


Ce mode d'adressage est très utilisé 
par le système lui-même et, par suite. 
il le sera souvent aussi par le pro- 
grammeur. Le but principal est tou- 
jours de pouvoir écrire un pro- 
gramme en gérant des adresses que 
l'on ne connaît pas encore ou qui 
peuvent se modifier, en cours d'exé- 
cution ou selon le contexte. 
L'adresse contenue doit fournir le 
début d'une zone de mémoire sur la- 
quelle on veut travailler (chaque va- 
riable de la zone pouvant être tou- 
chée au moyen de l'index Y). Sur 
l'Apple. ce type d'adresse est particu- 
lièrement répandu : adresse de la fin 
d'un programme BASIC. adresse 
d'une ligne d'écran texte ou graphi- 
que, adresse de la zone des chaînes 
de caractères, adresse d'une ligne de 
programme BASIC... 


Le ’GOSUB” de l’assem- 
bleur 


Quelques mots seulement, car le 
principe est très proche de celui uti- 
lisé en Applesoit. L'équivalent de 
GOSUB est l'instruction JSR (code 
20). En assembleur, on peut faire 
JSR $FBCI (par exemple) ou JSR 
ETIQUETTE (sous réserve bien sûr 
que ETIQUETTE soit défini quelque 
part dans le programme). En hexa- 
décimal, l'adresse où commence la 
sous-routine doit suivre le code 20 
dans l'ordre habituel octet bas/octet 
haut (20 C1 FB pour JSR $FBC1). 
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L'instruction RTS (code 60). quant à 
elle, joue exactement le même rôle 
que RETURN. 


Récapitulation illustrée 


Le petit programme ci-dessous n'em- 
ploie que des instructions examinées 
plus haut, à l'exception de ORG. En 
fait, il ne s'agit pas vraiment d'une 
instruction mais de ce que l'on ap- 
pelle, en langage bien barbare, un 
’pseudo-opcode” où une “directive”, 
c'est à dire une commande propre à 
l’assembleur utilisé (LISA 1.5 en l'oc- 
currence), mais qui ne relève pas du 
langage machine et ne fera pas partie 
du programme objet résultant de 
l'assemblage. Les commandes de dé- 
finition d'étiquettes que nous avons 
déjà évoquées (EQU, EPZ..) sont 
aussi des directives. 

En l'espèce, ORG indique à l'assem- 
bleur à partir de quelle adresse il doit 
réaliser l'assemblage et calculer les 
sauts éventuels (un JSR à l'intérieur 
du programme par exemple, mais 
pas les branchements par BEQ ou 
BNE qui, rappelons-le, se font en va- 
leur relative, en fonction d'un dépla- 
cement et non directement sur une 
adresse fixe). 


Le programme fait peu de choses : il 
exécute un HOME. vous demande 
un caractère au clavier, trace un 
cadre autour de l'écran avec ce ca- 
ractère, positionne ensuite le curseur 
au centre de l'écran pour vous de- 
mander un autre caractère avec le- 
quel il trace un nouveau cadre sur le 
précédent et ainsi de suite (on ne 
peut en sortir que par RESET). Nous 
allons l’analyser en détail. 


Ligne 2: $FC58 est l'adresse où 
commence la routine du moniteur 
qui est exécutée lorsque vous faites 
un HOME en Applesoft. JSR $FC58 
est donc équivalent à HOME {la rou- 
tine se termine évidemment par 
RTS). 

Ligne 3 : JSR $FDOC est équivalent 
à GET. La routine de saisie d'un ca- 
ractère au clavier commence en effet 
à l'adresse $FDOC: elle stocke le ca- 
ractère (le code-écran du caractère 
en fait) dans l’accumulateur. 

Ligne 4: on stocke le caractère à 
l'adresse $6, qui n’est pas utilisée par 
le système et reste à la disposition du 
programmeur. On donne à cette ins- 
truction l'étiquette B4 afin de pouvoir 
y effectuer un branchement ultérieu- 
rement. 

Ligne 5: on charge l’accumulateur 
avec le numéro de la première ligne 
de l'écran soit 0. 

Ligne 6 : la routine du moniteur qui 
commence en  $FBCI calcule 
l'adresse de base d'une ligne de 
l'écran dont on donne le numéro par 
À. Sur une ligne, les caractères sont 
stockés de  ‘’adresse-base” à 
‘’adresse-base + $27" (de O à 39 en 


décimal, ce qui fait bien 40 caractè- 
res par ligne). La routine range cette 

il dans les mémoires $28 et 
29, 


Ligne 7 : Y=#$26 ou encore Y=38 
en décimal, ce qui correspond à 
l’avant-dernier caractère de la ligne. 
Ligne 8 : on remet le caractère entré 
au clavier dans A. 

Ligne 9: on le stocke à l'adresse 
’adresse-base de la ligne + 38”: il 
est ainsi affiché à l'écran (avant-der- 
nier caractère de la première ligne). 
Ligne 10 : Y=Y-—1 

Ligne 11: si Y est différent de O0, on 
retourne à BO, afin d'afficher tou- 
jours le caractère sur la première 
ligne, de la droite vers la gauche. 
L'assembleur calculera lui-même le 
déplacement qui permettra de re- 
monter à l'adresse où commencera 
l'instruction qui suit B0, ce dont on 
peut lui être reconnaissant. 

Ligne 12: Y=0 (le premier caractère 
de la ligne n’est pas encore affiché). 
17 en hexadécimal vaut 23 en déci- 
mal: c'est le numéro de la dernière 
ligne de l'écran. 

Ligne 13 : calcul de l’adresse-base de 
la dernière ligne. 

Lignes 14 à 18: on fait pour la der- 
nière ligne comme pour la première. 
Ligne 19: Y=O0 pour traiter la pre- 
mière colonne de l'écran. 

Ligne 20: on met $18 dans X au 
lieu de $17 afin de pouvoir placer le 
DEX avant l'opération d'affichage. 
Ainsi, le test sur la valeur de X (0 ou 
non) se fera après le traitement de la 
ligne 0 et non avant. 

Ligne 22 : À = numéro de la ligne. 
Lignes 23 à 25 : instructions réalisant 
l'affichage en première colonne (Y 
vaut toujours Ü). 

Ligne 26: TXA a pour but de don- 
ner au ‘dernier résultat” testé par 
BNE la valeur de X, qui est bien 
celle qui nous intéresse ici. 

Ligne 27 : on passe au caractère sui- 
vant (au-dessus) dans la même co- 
lonne, jusqu'à ce que la ligne O ait 
été traitée. - 

Ligne 28: TYA pour donner au 
dernier résultat” la valeur de Y. En 
fait, on veut savoir si la colonne que 
l'on vient de traiter est la première 
(0) ou la dernière ($27 = 39) Si 
c'est O, on refait le travail avec $27 
(lignes 30 et 31 qui renvoie à la ligne 
20), sinon, le cadre est terminé et on 
se déplace en B3. 

Lignes 32 à 34: la mémoire $25 
contient la position verticale du cur- 
seur: on la met à $C (12) et on fait 
un JSR à la routine qui exécute le 
VTAB ($FC22). Ceci est donc équi- 
valent à VTAB 12. 

Lignes 35 et 36 : $24 contient la po- 
siion horizontale du curseur, on v 
ne $14, ce qui équivaut à HTAB 
Ligne 37: demande d’un caractère 
au clavier. 
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Lignes 38 à 39 : aucun caractère n'a 
O pour code-écran en mode normal 
et le test BNE réalisera donc systé- 
matiquement le branchement en Bd: 
le programme boucle ! 


Si vous voulez rentrer ce programme 
directement en hexadécimal, utilisez 
la récapitulation qui vous est donnée 
de la façon suivante : 


Entrez en mode moniteur par 
CALL-—151, puis tapez : 

300: 20 58 … 06 RETURN 

308: A9 00 … A5 RETURN 

et ainsi de suite jusqu'au BA final. 
Retour au BASIC par 3D0G RE- 


Vous pouvez, si vous le désirez, sau- 
ver la routine par  BSAVE 
nom,A$300,L$4C (où $300 et $4C 
désignent respectivement l'adresse de 
début et la longueur du code à sau- 
vegarder). 

Pour l'exécuter, tapez CALL 768 
RETURN. 


Nous vous donnons également un 
petit programme en Applesoft qui fait 
le même travail que notre routine en 
assembleur. Essayez-le également et 
vous constaterez la chose suivante : 
on à le temps de voir le cadre se 
dessiner alors que, en langage ma- 
chine, tout semble “instantané” (un 


vous puissiez discerner une phase in- 
termédiaire). Ceci confirme ‘de visu” 
que le langage machine permet de 
réaliser des traitements plus rapides 
que le BASIC et c'est bien la moin- 
dre des choses. 


Mais, et la taille du programme, 
direz-vous ! Il ne faut pas se fier aux 
apparences: le programme source 
en assembleur peut vous paraître 
long (surtout si vous le tapez effecti- 
vement, sans être un spécialiste de la 
dactylographie), mais le code-objet 
n'occupe que 76 octets. Le “petit” 
programme Applesoft en prend pour 
sa part 112 .… Alors. rendez-vous au 


EEE 

















TURN ou CTRL-C. cadre en remplace un autre sans que prochain article ! E 
LISTE D’ASSEMBLAGE RECAPITULATION 
LISA 1.5 

0300- 20 58 FC 20 OC FD &S Oé 

0308- À9 00 20 Ci FB A0 26 À5 
0300 1 ORG $300 0310- 0é 91 28 88 D0 FR A9 17 
0300 2058FC 2 JSR $FCS8 0318- 20 Ci FB A0 26 À5 0é 9i 
0303 200CFD 3 JSR $FD0OC 0320- 28 88 DO FR AG OG A2 18 
0306 8506 4 B4 STA $é 0328- CÂA 8 20 Ci FB À5 06 9i 
0308 A900 5 LDA #0 0330- 28 84 DO F4 98 DO 04 A0 
0304 20C1FB 6 JSR $FBCI 0338- 27 DO EB À9 0C 85 25 20 
030D A026 ra LDY #$26 0340- 22 FC ÀS 14 85 24 20 OC 
030F AS0é 8 LDÉ $é6 0348- FD 4% DO Ba 
0311 97128 9 BO STA (#28) ,Y 
0313 88 10 DEY 
0314 DOFB 11 BNE B0 10 HOME : POKE 34,24 
DIS ArLE ÉRAUAAIE 15 GET Z$: UTAB 1: HTAB 1: FOR 1 = 
0318 20CI1FB 13 JSR $FBC1 1 TO 40: PRINT Z$3;: NEXT : UTAB 
031B A026 14 LDY ##$26 24: HTAB 1: FOR 1 = 1 TO 40: PRINT 
031D AS0é 15 LDA $6 Z$3;: NEXT 
031F 9128 1é Bi STA (#28) ,Y 20 FOR I = 2 TO 23: VTAB 1: HTAB 
0321 88 17 DEY 1: PRINT Z$;: HTAB 40: PRINT 
0322 DOFB 18 BNE Bi Z$;: NEXT : UTAB 12: HTAB 20: 
0324 A000 19 LDY #0 GOTO 15 
0326 ÀA218 20 B20 LDX ##18 
0328 CA 21 B2 DEX 
0329 8A 22 TXA 
0324 20C1FB 23 JSR $FBCI Un bug en virgule flottante 
Dar SOA ce Lee Christophe Chaumet nous a signalé ce bug. publié dans 
032F 9128 25 SAR (5282 ,Y ACM SIGNUM Newsletter en avril 83. Les multiplications 
0331 8A 26 XA et divisions en virgule flottante de l'Apple sont sujettes à 
0332 DOF4 27 BNE B2 erreur dans certains cas. Ainsi, la mantisse contient 4 
0334 98 28 TYA octets (32 bits): si, pour un nombre donné. les deux octets 
0335 D004 29 BNE B3 centraux de cette mantisse sont nuls et l’octet final non 
0337 A027 30 LDY ##$27 nul, il peut y avoir une erreur dans l'octet final pour les 
0339 D0EB 31 BNE B20 multiplications et divisions faites avec ce nombre. 
033B A90C 32 B3 LDA #$C Exemple: | 
033D 8525 33 STA $25 Le A 

= 2*x(/; 

REY Ft _ FE M On obtient en fait W = 0.5+2 (-26) sorne résultat. 
0344 8524 36 STA $24 Par contre, si Z = 0.5 + 2 (—9) + 2 (—25), on trouve 
0346 200CFD 37 JSR $FDOC bien la même valeur pour Z et W, une fois que W a été 
0344 DOBA 39 BNE B4 Apple a été informé de l'erreur il y a trois ans: hélas, ce 


problème est resté avec l'Apple /'e. 
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L'interpréteur Applesoft est à l'étroit 
dans ses 10K de ROM et certaines 
de ses possibilités ne peuvent être 
exploitées que par l'emploi de 
POKES à certaines adresses mé- 
moire. D'autre part, il peut s'avérer 
nécessaire de tromper l'interpréteur 
qui est parfois un peu trop strict. 
Tout programmeur connaît les 
POKES courants permettant de défi- 
nir les limites de la fenêtre d'écran, 
de passer aux modes graphiques... 
D'autres sont moins connus. Cette 
liste rassemble tous ceux que j'ai pu 
trouver dans la littérature consacrée à 
l'Apple. Elle n'est certainement pas 
exhaustive et pourra être complétée 
par la suite. 


Remarque : lorsqu'il s'agit de POKEr 
des valeurs sur 2 octets, X étant l'oc- 
tet de poids faible, X+1 l'octet de 
poids fort, l'instruction suivante est 
utilisée : 

POKE X+1,VAL/256 : POKE X.VAL 
—256*PEEK(X+1) 

au lieu de : 


V% = VAL/256 : POKE X.VAL-256% 
V%: POKE X+1,VX 


Page zéro 


e POKE 10,76: POKE 12,AD/256 : 
POKE 11,AD-PEEK(12)*256 

Initialise la fonction USR. Un appel à 

USR provoquera un saut à un sous- 


programme machine commençant à 
l'adresse AD, 


e POKE 32,X 
Fixe la marge gauche de la fenêtre 
de texte (0<= X <= 39). 


e POKE 33,X 

Fixe la largeur de la fenêtre de texte 
(0<= X <= 39-PEEK(32)). 

e POKE 3333 

Affiche les instructions Applesoft sans 


mettre de marge. Nécessaire pour les 
corrections d'instructions. 


e POKE 33,28 
Permet un cadrage facile des REMar- 
ques. 


e POKE 34,Y 

Fixe le haut de la fenêtre de texte 
(0O<= Y <= 23). 

e POKE 35,Y 


Fixe le bas de la fenêtre de texte 
(PEEK(34)<= Y <= 23). 


e POKE 36,X 

Fixe la position horizontale du cur- 
seur. À utiliser en remplacement de 
HTAB pour sortie sur imprimante si 
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Des POKESs à gogo 


l'impression se fait sur plus de 40 co- 
lonnes. 


e POKE 37,Y 
Fixe la position verticale du curseur 
(0<= Y <=23). 


e POKE 48,C 

Sélectionne la couleur du tracé basse 
résolution (mode O=noir, 
1=magenta, 2=bleu foncé, 3=pour- 
pre, 4=vert foncé, 5=gris, 6=bleu, 


7=bleu clair, 8=brun, 9=orange, 
10=gris, 11=rose, 12=vert, 
13=jaune, 14=incolore, 15=blanc. 
e POKE 49,X 


Sélectionne le MODE du moniteur. 


e POKE 50,63 
Sélectionne le mode d'affichage IN- 
RSE. 


e POKE 50,127 
Sélectionne le mode d'affichage cli- 
gnotant (mode FLASH). 


e POKE 50,255 
Retour au mode d'affichage normal. 


e POKE 51,128 

À placer en mode immédiat avant un 
ordre CONT, GOTO, GOSUB, sur la 
même ligne, lorsque la portion de 
programme à exécuter contient un 
ordre OPEN, READ, WRITE, AP- 
PEND ou POSITION. On évite ainsi 
le message NOT DIRECT COM- 
MAND. 


e POKE 55,AD/256: POKE 54AD 
—PEEK(55)*256 

Changement de l'adresse du sous- 

programme de sortie de caractères. 

(Normalement $9EBD avec le DOS). 


e POKE 57,AD/256: POKE 56,AD 
—PEEK(57)+256 

Changement de l'adresse du sous- 

programme d'entrée de caractères. 

(Normalement $9E81 avec le DOS). 


e POKE 58,A1: POKE 59,A2: 
POKE 69,43: POKE 70,A4: 
POKE 71,A5 


Utilisation des adresses de sauve- 
garde de PC et des registres A,X,Y 
pour l’appel de sous-programmes du 
moniteur. En voici un exemple : 


Conversion décimal en 
hexadécimal 

10 INPUT "DEC=";D: POKE 
71,D/256: POKE 70D -— PEEK 
(71)x256: POKE 59249: POKE 
58,64 : POKE 49.0 : PRINT 


"HEX$="; : CALL-327 


La valeur de D est POKEe dans les 
registres Y et X par l'intermédiaire 
des adresses de sauvegarde de ces 


Roland Jost 


registres ($47 ,$46). L'adresse du 
sous-programme d'affichage 
(PRNTYX - $F940) est POKEe dans 
les adresses de sauvegarde du PC 
($3A, $3B). On met à zéro le MODE 
($31). Le CALL-327 exécute un 
sous-programme restaurant les regis- 
tres ($FEB9). 


e POKE 60-67,X 
Ces huit adresses permettent de 
transmettre des paramètres à certai- 


nes routines du moniteur: MOVE, 
VERIFY... 


Exemple : déplacer de D1 à A1 une 
zone mémoire commençant à 
l'adresse D1 et se terminant en D2 : 

POKE 61,D1/256 : POKE 60,D1-— 
PEEK (61)+256 : POKE 63,D2/256 : 


POKE 62,D2-PEEK (63)x 256: 
POKE 67,A1/256 : POKE 66,A1 — 
PEEK (67)x256 : CALL —468 

Le CALL—-468 exécute la 
commande MOVE ($FE2C). Un 


CALL-548 (VERIFY $FE36) per- 
mettrait la comparaison de 2 zones 
mémoires. 


e POKE 72,0 

Met à zéro le registre d'état. Utilisé 
par exemple dans la routine de 
S.H.LAM (voir plus loin). 


e POKE 82,213 

À faire avant de sauver un pro- 
gramme sur cassette. Le programme 
s'exécutera automatiquement après 
un LOAD et le RUN n'est plus né- 
cessaire. 


e POKE 103.1 : 

104.AD/256 : POKE AD.0 
Fixe à AD le début d'un programme 
Applesoft. 


e POKE 106.X ; 256: POKE 105,X 
— PEEK (106) + 256 

Fixe la valeur de LOMEM à la valeur 

décimale X. Identique à LOMEM:X. 


e POKE 116.X : 256: POKE 115,X 
— PEEK (116) x 256 

Fixe la valeur de HIMEM à la valeur 

décimale X. Identique à HIMEM:X. 


e POKE 118.0 

Permet d'exécuter des instructions 
telles que INPUT. GET... en mode 
immédiat. L'adresse 118 ($76 
CURLIN) contient normalement $FF 
en mode direct et le numéro de ligne 
BASIC en mode programme. Exem- 
ple : POKE 118.0:INPUT © :R$ 


e POKE 118.0 : POKE 436990 
Permet un INPUT du clavier dans un 
fichier EXEC. Après l'INPUT. faire 


POKE 














un POKE 436991 (pour 48K). 
Toutes les instructions doivent être 
dans une même ligne. 


e POKE 176X ; 256: POKE 175.X 
— PEEK (176) * 256 

Fixe l'adresse de fin d'un programme 

Applesoft. A utiliser, par exemple, 

lorsque l'on veut ajouter un pro- 

gramme binaire à la suite d'un pro- 

gramme Applesoft. 


e POKE 214.255 

Annule les commandes LIST. NEW. 
POKE, CALL et la commande SAVE 
du DOS. Empêche d'insérer ou d'ef- 
facer une ligne BASIC. Toute 
commande précitée fera exécuter le 
programme Applesoft en mémoire. À 
utiliser pour empêcher le listage et la 
modification de programmes. Pour 
revenir à la normale, passer en mode 
moniteur et faire “D6: 00”. 


e POKE 216,0 
Annulation d'une 


ERR. 


e POKE 228.X 

Permet de changer le code de la 
couleur HGR. Noir=0, Vert-85, 
Violet=42, Blanc=127. Noir=128, 
Bleu=170,  Orange=213. Blanc 
—255. Essayez toutes les autres pos- 
sibilités pour X compris entre 0 et 
255. 


e POKE 230,32 

Sélectionne la première page haute 
résolution ($2000-$3FF8) sans l'affi- 
cher. Toutes les instructions de tracé 
agiront sur cette page. 


e POKE 230,64 
Sélectionne la deuxième page HGR 
($4000-$5FF8). 


e POKE 230.96 

Les instructions HGR agissent sur 
une 3ème page HGR “théorique” 
($6000-$7FF8). Cette page ne peut 
être affiché par hardware. mais dé- 
placée en bloc vers l’une des pages 1 
ou 2. 


e POKE 231.X 
Permet de changer la valeur de 
SCALE (0-...). 


e POKE 233X ; 256 : POKE 232.X 
— PEEK (233) x 256 

Fixe l'adresse de début d'une table 

de formes. 


e POKE 241.X 
Fixe la vitesse d'affichage : SPEED = 
256-X. 


instruction 


e POKE 243.0 

Permet de sortir du mode FLASH 
après un <RESET> effectué en 
cours d'exécution de programme. 
Vous êtes dans cette situation lors- 
que, lors du balayage d'une instruc- 
tion par la flèche à droite. le passage 
du curseur provoque l'affichage de 
caractères incohérents. Un POKE 
243.0 rétablit une situation normale. 





e POKE 243,32 
Convertit les majuscules en minuscu- 
les lors d'une sortie sur imprimante. 


e POKE 249,X 
Fixe la valeur de ROT à X. 


Page 2 


La page 2 ($200-2FF) sert de tam- 
pon (buffer) d'entrée des caractères 
frappés au clavier. La routine de 
S.H.LAM utilise des POKESs en page 
2 pour installer en mémoire des 
sous-programmes assembleur. On 
peut aussi l'utiliser pour faire exécu- 
ter à partir du BASIC des instructions 
moniteur : 


CO$=CO$ + ” N D9C6G": FOR 
Z=1 TO LEN(COS) : POKE 511+Z. 
ASC{MID$(COS$.Z.1)) + 128 : NEXT 
Z : POKE 72,0 : CALL—144 


Par exemple : 


e CO$="2000<4000.5FF8M°  co- 
piera la page graphique 2 dans la 
1 


page 1. 

e CO$="300L" liste 20 instructions 
désassemblées à partir de l'adresse 
$300. 

e CO$="CO81 N CO81 N 
DO00<DOO0.FFFEM" copie la 
ROM dans la carte d'extension 
mémoire... 


Page 3 


e POKE 1009,X/256 : POKE 

1008.X—PEEK(1009)+256 
Change l'adresse de branchement en 
cas de BRK. 


e POKE 1011.X/256 : POKE 

1010,X-—PEEK(1011)+256 
Modifie l'adresse de branchement en 
cas de RESET. 


e POKE 1012.0 
Provoque un démarrage à froid 
après un RESET. 


e POKE 1013.76 : POKE 
1015.AD/256 : POKE 
1014.AD-PEEK(1015)*256 

Initialise & (AMPERSAND}) pour un 

saut à un sous-programme dont le 

point d'entrée est à l'adresse déci- 
male AD. 


e POKE 1016.76 : POKE 
1018.AD/256 : POKE 
1017,AD—PEEK(1018)x256 

Initialise CTRL-Y en mode moniteur 

pour un saut à un sous-programme 

situé à l'adresse décimale AD. 


Pages 4-7 


e POKE 1024 + X + 128xY — 
984xINT(Y'8).CA 

Permet de POKEr directement en 
page 1 de TEXTE (écran) au point 
de coordonnées X et Y (0<= X <= 
39 et O<= Y <= 23) Le mode 
d'affichage dépendra de la valeur de 
CA : 


0 <= CA <= 63 : MODE INVERSE 


64 <= CA <=1]127 : MODE FLASH 
128 <= CA <=191: MODE NOR- 
MAL 

192 <= CA <=255 : MODE NOR- 
MAL ou minuscules 


Dans le cas d'une écriture en page 2 
de TEXTE, remplacer 1024 par 
2048. Attention, votre programme 
Applesoft ne doit pas débuter avant 
$CO00. 


Pages graphiques 


Un POKE dans les adresses corres- 
pondant aux pages graphiques allu- 
mera un point sur l'écran. Vu l'orga- 
nisation des pages HGR , il est peu 
pratique de POKETr directement des 
figures en page graphique. 


DOS 48K 


Toutes les adresses ci-dessous corres- 
pondent à un Apple 48K où le DOS 
est chargé entre $9600 et $BFFF. 
Pour des systèmes 32K ou 16K. il 
faut leur retrancher respectivement 
16384 et 32768. Sauf indication 
contraire, ces adresses sont valables 
en DOS 3.2 et DOS 3.5. 


e POKE 40407.234 : POKE 
40408.234 : POKE 40409.234 

La commande MON C.I.O n'est plus 

déconnectée lors d'un RESET. 


e POKE 40514.52 

Permet un démarrage du système 
(BOOT) sur un fichier binaire (valeur 
par défaut = 6: fichier BASIC). 


e POKE 40514.20 
Permet un démarrage du système sur 
un fichier EXEC. 


e POKE 40993,234 : POKE 
40994,234 : POKE 40995.234 
Permet de passer des commandes 
DOS (OPEN. READ..) en mode DI- 
RECT. sans le message NOT DI- 

RECT COMMAND. 


e POKE 42424.192 : POKE 
42432,193 

Permet au DOS de reconnaître une 

carte ROM Applesoft ou Integer dans 

le port (slot) 4. 


e POKE 4314096 : POKE 
43160,96 : POKE 43212.96 

Ces trois POKES annulent respective- 
ment les commandes INIT. DELETE 
et RENAME du DOS en remplaçant 
la première lettre de chaque 
commande par un caractère non ac- 
cessible au clavier de l'Apple II+. 


Avec un POKE 214.255 en complé- 
ment (voir plus haut). ceci constitue 
un bon moyen de protection de pro- 
grammes contre les effacements ou 
interventions non autorisés. 


Pour revenir à un DOS standard. 
faire ‘POKE 4314073: POKE 
43160.68 : POKE 4321282". L'effet 
du POKE 214 ne peut être annulé 
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A 


qu'en mode moniteur (voir plus 
haut). 


e POKE 436241 
Sélectionne le lecteur de disquette 1. 


e POKE 43624,2 
Sélectionne le lecteur de disquette 2. 


Le changement de lecteur peut se 
faire facilement par l'instruction 
"POKE 43624,3-PEEK(43624)" 


e POKE 43626,X 
Sélectionne le port (slot) du lecteur. 
X étant le numéro du port (6.5.4...). 


e POKE 436990 

Déconnecte un fichier EXEC. Le fi- 
chier reste ouvert jusqu'à la pro- 
chaine commande CLOSE. FP. INT 
ou MAXFILES. 


e POKE 436991 
Reconnecte le fichier EXEC. 


e POKE 44452,0 

Supprime la pause du CATALOG. 
Pour revenir à un affichage standard, 
taper ‘“POKE 4445222”. D'autres 
valeurs donnent des résultats divers. 


e POKE 44505.234 : POKE 
44506.234 

Les fichiers effacés (par DELETE) 

sont affichés lors d'un CATALOG. 


e POKE 44596,255 

Supprime la pause du CATALOG. 
Pour revenir à un affichage standard, 
taper ‘POKE 44596.206”. 

Un POKE 44596.0 entraîne un arrêt 
en mode moniteur et le CATALOG 
n'est pas affiché. 


e POKE 44723,X*x4 : 
44725,Yx4 

À faire avant une initialisation de dis- 

quette. Les seules pistes accessibles 

pour là sauvegarde de fichiers seront 

celles comprises entre X et Y (inclus). 


e POKE 44033,.3 : POKE 
4472316: POKE 44741.12: 
POKE 447643 : POKE 46012,3 

À faire avant une initialisation de dis- 
quette par INIT. Cette série de 
POKESs permet de placer le DIREC- 
TORY et la VTOC sur la piste 3 au 
lieu de la piste 17. Cette disquette ne 
sera plus ‘bootable’ ni accessible par 
un DOS normal. Les programmes de 
ce (FID., COPYA) ne fonctionnent 
plus. 

Dans un DOS standard, ces adresses 

contiennent respectivement les va- 

leurs 17, 12, 68. 17, 17. 


e POKE 49107,234 : POKE 
49108.234 : POKE 49109,234 
Evite, lors d’un BOOT à chaud, de 
recharger le langage complémentaire 
(Integer pour un Apple II+, ou Ap- 
plesoft pour un Apple Il) dans la 
carte langage ou la carte d'extension 

RAM). 


POKE 
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BLOCK IOB 


IOB (INPUT/OUPUT BLOCK) est 
utilisé par le sous-programme RWTS 
(Read Write Track Sector) pour l'ac- 
cès à un secteur de la disquette. 
L'adresse de la table IOB utilisée par 
le DOS est donnée par : 

IOB = 256*(PEEK(PEEK(996) + 
256*PEEK(997)) + 
PEEK(PEEK(999) _ 
256*PEEK(1000)) 

normalement IOB = 47080 ($B7E8) 


Pour modifier les paramètres de la 
table IOB. on pourra faire les 
POKES suivants : 


e POKE IOB + 3.0 

Met le numéro de volume à zéro. 
Donc accepte de lire la disquette 
quel que soit le numéro de volume. 
Sinon le numéro de volume doit cor- 
respondre au contenu de cette 
adresse. 


e POKE IOB + 4.P 
P = numéro de piste (0 - 34) 


e POKE IOB + 5.5 
S = numéro de secteur (0 - 15 en 
DOS 3.3. 0 - 12 en DOS 3.2). 


e POKE IOB + 9A256: POKE 
IOB + 8.A-—256*PEEK(IOB +8) 
À = adresse du tampon en MEV. 


e POKE IOB + 12,C 
C = 0: positionne la tête de lecture 
à début du secteur défini par P et 


C = 1: lecture du secteur P. S. 

C = 2: écriture du secteur P. S sur 
disquette. 

C = 4: formattage de la disquette. 
ATTENTION : détruit tout le contenu 
de la disquette. 

Ne pas oublier de mettre la valeur de 
IOB dans les registres À et Y avant 
appel de RWTS (cf. manuel du 
DOS). 


Entrées-sorties ($C000 
$COFF) 


À ces adresses sont implantés des 
switchs (ou bascules) permettant de 
sélectionner une fonction d'entrée- 
sortie donnée. 


e POKE 49168.0 (—-16368) 
Reprise de la lecture du clavier. le 
STROBE est remis a zéro. 


e POKE 49184,0 (—-16352) 

Active la sortie magnétophone. Per- 
met par exemple de sortir sur un am- 
plificateur. Un deuxième POKE à la 
même adresse déconnecte la sortie. 


e POKE 49200.0: POKE 49200.0 
(—-16336) 
Produit un ‘CLIC’ du haut-parleur. 


e POKE 49232.,0 (—-16304) 
Passage en mode graphique. 


e POKE 49233.0 (—-16303) 
Passage en mode texte. 


e POKE 49234.0 (—-16302) 
Choix du mode graphique non 
mixte. 


e POKE 49235,0 (—-16301) 
Choix du mode mixte (4 lignes de 
texte en bas d'écran). 


e POKE 49236.0 (—-16300) 
Choix de la page 1 (TEXTE OÙ GR 
OÙ HGR). 


e POKE 49237.0 (—-16299) 
Choix de la page 2 (TEXTE OÙ GR 
OÙ HGR]|. 


e POKE 49238.0 (—16298) 
Basse résolution (mode GR). 


e POKE 49239,0 (—-16297) 
Haute résolution (HGR). 


Les commandes HGR et HGR2 effa- 
cent les pages graphiques. Pour pas- 
ser à une page graphique sans effa- 
cement de son contenu, faire par 
exemple pour la page 2 : 


POKE 492320: POKE 492340: 
POKE 49237.,0 : POKE 49239.0 


Pour basculer entre les pages 1 et2, 
exécuter l'instruction : 


POKE 230, 96 — PEEK (230). 


e POKE 49240,1 (—-16296) 

Met la sortie numérique 0 (patte 15 
de la broche manette) à l'état OFF” 
(5 volts). 


e POKE 49241.0 (—-16295) 
Met la sortie numérique 0 en position 
“ON” (0,3 volts). 


e POKE 49242,1 (—-16294) 

POKE 49243,0 (—16293) 
Idem pour la sortie numérique 1 
(patte 14). 


e POKE 49244.1 (—-16292) 

POKE 49245,0 (—16291) 
Idem pour la sortie numérique 2 
(patte 13). 


e POKE 49246,1 (—-16290) 

POKE 49247,0 (—16289) 
Idem pour la sortie numérique 3 
(patte 12). 


e POKE 49248.0 (— 16288) 

Active l'entrée magnétophone. Un 
deuxième POKE à cette adresse dé- 
sactive l'entrée. 


e POKE 49280.,0 (—-16256) 
Connecte la carte d'extension mé- 
moire (BLOC 2) en mode lecture. 
Protection en écriture. 


e POKE 492810: POKE 49281.0 
(—-16255) 

Déconnecte le BLOC 2 en mode lec- 

ture. Déprotège en écriture. La lec- 

ture de la ROM est possible. 


e POKE 49282,0 (—-16254) 
Carte (BLOC 2) déconnectée en lec- 




















Sex 
LEÉLER LE: 


FNTEREREEL EE 
SEGAEYAES SE 


xxneS 
TRRMÉAN AAA 


FE4 


ture, protégée en écriture, c'est à dire 
retour au langage en ROM. 


e POKE 492830: POKE 49283.0 
(—16253) 

Le BLOC 2 de la carte d'extension 

est accesssible en lecture ET en écri- 

ture. 


Les 12K du BLOC 1 sont accessibles 
de la même façon par les POKESs sui- 
vants: 


POKE 49288,0 (—16252) 
POKE 49289,0 (—-16251) 
POKE 49290,0 (—-16250) 
POKE 49291,0 (—16249) 


Pour une carte d'extension 32K ou 
plus, la 2ème tranche de 16K est ac- 
cessible par les POKES indiqués ci- 
dessous : 


BLOC 2: utiliser les POKES 49284 
à 49287 


BLOC 1: utiliser les POKES 49292 
à 49295. 


Correction d’utilitaires 


RENUMBER 


L'utilitaire de renumérotation de 
lignes livré avec les disquettes Master 
DOS 3.2 et 3.3 comportait un “bug” 
qui peut être corrigé par les POKES 
ci-dessous : 

Après avoir chargé RENUMBER en 
mémoire par un LOAD,. taper : 


e POKE 4815172 et  POKE 
4816.171 pour un DOS 3.2. 
e POKE 4789172 et  POKE 


4790,171 pour un DOS 3.3. 


Sauver le programme modifié par 
SAVE RENUMBER. 


Un programme de menu 


Ce programme en assembleur vous 
permet, en relation avec le pro- 
gramme de gestion de masques de 
G. Michel (POM'S 7), de réaliser très 
rapidement les menus de vos pro- 
grammes BASIC. 


Il permet de répondre à un menu 
soit par déplacement à l'aide des flè- 
ches -> où <-, soit par réponse litté- 
rale (une lettre A.B.C...). 


dans tout programme BASIC. Avant 
de l'appeler. il est nécessaire de lui 
communiquer certaines informations 
par des POKE aux adresses correc- 
tes. Les informations concernées sont 
les suivantes : 

e adresse 0: le numéro de la ligne 
de la première modalité de choix 
(entre O et 23), 

e adresse l: le numéro de la co- 


Bibliographie 


Tous ouvrages français consacrés à 
l'Apple Il. 

Revues : Pom's, L'Ordinateur Indivi- 
duel, CALL AP.PL.E , NIBBLE . 
APPLE ORCHARD. 


Conclusion 


Tous ces POKES ont été testés avec 
DOS 3,3, 3.2, 3.2.1. A moins d'une 
erreur de transcription, ils devraient 
être corrects. Prière de signaler les 
erreurs éventuelles. Cette compilation 
ne tient certainement pas compte de 
nombreuses autres possibilités de 
modification du DOS (cf. les nom- 
breux ‘patches’ possibles mais qui 
nécessitent plus que quelques 
POKES). ni des corrections éventuel- 
les pour l'Applesoft chargé en carte 
langage. [| 


Gilles Mauffrey 


et 39): cette colonne, pour chaque 
modalité de choix, doit contenir 
un caractère non blanc, 

adresse 2: le nombre de modalités 
de choix, 

adresses 36,37: positionnement du 
curseur en cas de réponse littérale. 


Le petit programme de démonstra- 
tion listé ci-après vous fournira les in- 
dications complémentaires pour la 





Ce programme est relogeable: vous lonne à partir de laquelle se fera mise en oeuvre de la routine. 
pouvez donc l'intégrer très facilement l'inversion des caractères (entre O0 = 
9 D$ = CHR& (4) 
Re Masque 10 HOME : PRINT D#"BLOAD MASKDEMO 


+ x 
*DEMO  MENU*x 
x x 
RENE EX XXE 


PREMIER CHOIX 
SECOND CHOIX 
TROISIEME CHOIX 


GUATRIEME CHOIX 


VOTRE CHOIX : 


UTILISER LES -> , <- OÙ LA LETTRE VOULUE 





DEMOMENU 

1 REM PROGRAMME DE MENU 
2 REM  CAPPLESOFT) 

3 REM Se 





MASK DEMO 


60 X = 


70 END 

1000 HOME 
1010 
2000 
3000 
5000 


HOME 
HOME 
DATA 


5005 
5010 


RETURN 


,4$8400,D1" 

15 GOSUB 5000 

20 POKE 0,7: POKE 1,6: POKE 2,4: POKE 
36,35: POKE 37,20 

40 PRINT D$"BLOAD B:MENU,4$9500" 

50 CALL 9 »* 256 »x 16 + 5 * 256 

55 FOR J = 1 TO 600: NEXT 

PEEK (3): 

2000 ,3000 


ON X GOSUB 1000, 


PRINT °SPi" 


PRINT "SP2": 
PRINT *“SP3": 


RETURN 
RETURN 


1024,1152,1280,1408,15 
36,1664,1792,1920,1064,1192,1 
320,1448,1576,1704,1832,1960, 
1104,1232,1360,1488,1616,1744 
,1872,2000 

RESTORE 

FOR J = 1 TO 24: READ N: FOR 


K = 0 TO 39: POKE N + K, PEEK 
C8 * 256 *% 16 + N + K): NEXT 
K: NEXT J 


95020 


RETURN 
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Programme MENU.TEXT 49 BNE PCL 100 TXS 





DOS TOOL KIT 30 CLU 101 LDY #39 
91 JSR $FF58 102 BINEF LDA (BASE) ,Y 
1 ORG +$9000 52 BVC EFFACE 103 ORA  #$C0 
2 LIGNE EQU +00 933 INC REP 104 CMP  H$E0 
3 COLONNE EQU #01 54 LDA REP 105 BCC STOB 
4 CHOIX EQU +02 55 CMP CHOIX 106 SBC ##$40 
S REP EQU #03 Jé6 BCC  CAVA 107 STOB STA (BASE) ,Y 
é LETMAX EQU $04 97 BEG CAVA 108 DEY 
7 TEMP EQU $05 58 LDR  #0ï 109 BPL BINEF 
8 CH EQU $24 97 CAVA STA REP 110 BIT $FFS58 
9 CV EQU $25 60 CLV 111 RTS 
10 BASE EQU +28 61 JSR $FFS8 112 INVER TSX 
11 BASCALC EQU #FBC1 62 BUC  PRECAL 113 DEX 
12 REPONI LDA CU 63 BUS PCL 114 DEX 
13 JSR  BASCALC 64 INVERM BVC  INVER 115 TXS 
14 LDY CH 65 PRECAL TSX iié LDY #40 
15 LDA  #$5F 66 DEX 117 INO DEY 
16 STA (BASE),Y | 67 DEX 118 LDA (BASE) ,Y 
17 LDA #01 68 TXS 119 CMP +#” 
18 STA REP 67 CLU 120 BEQ INO 
19 LDA LIGNE 70 JSR $FFS8 121 EOR ##E0 
20 JSR BASCALC 71 BUC  CALINE 122 BEQ  INO 
21 CLU 72 CLU 123 BINV LDA (BASE) ,Y 
22 JSR $FF58 73 JSR $FF58 124 AND H$3F 
23 BUC  INVERM 74 BVC  INVER 125 STA (BASE) ,Y 
24 CLC 75 BIT $FF58 126 DEY 
25 LDA #’A 76 RTS 127 CPY  COLONNE 
26 ADC CHOIX 77 LETTRE PHA 128 BCS BINV 
27 STA  LETMAX 78 CLV 129 BIT +FF58 
28 PCL LDA $CO000 79 JSR #$FFS58 130 RTS 
29 BPL PCL 80 BVC  EFFACE 131 CALINE TSX 
30 BIT +$CO10 81 PLA 132 DEX 
31 CMP  #H$Ci 82 SEC 133 DEX 
32 BCC CTRL 83 SBC  H$CO 134 TXS 
33 CMP  LETMAX 84 STA REP 135 LDX REP 
34 BCS PCL 85 CLVU 136 LDY  COLONNE 
35 BCC LETTRE 86 JSR $FFSE 137 LDA LIGNE 
36 CTRL CMP #$88 87 BUC  PRECAL 138 STA TEMP 
37 BNE CTRT 88 BUS  REVIEN 139 JSR BASCALC 
38 BEG ARRIERE 89 ARRIERE CLV 140 CALIN DEX 
39 CTRT CMP  H##$8D ça JSR +$FF58 141 BEQ TROUVE 
40 BNE CTRU 91 BUVC EFFACE 142 CALI INC TEMP 
41 REVIEN LDA CV 92 DEC REP 143 LDA  TEMP 
42 JSR BASCALC 93 LDA REP 144 JSR  BASCALC 
43 LDY CH çg4 BNE CAUA 145 LDA (BASE) ,Y 
44 LDA REP 95 LDA CHOIX i4é EOR #” 
45 ORA  HK$CO 96 BNE CAVA 147 BEQ CALI 
46 STA (BASE) ,Y | 97 SFFACE TSX 148 BNE CALIN 
47 RTS 98 DEX 149 TROUVE BIT $FF58 
48 CTRU CMP H#$95 99 DEX is50 RTS 
RECAPITULATION 9050- 20 58 FF 50 51 Eé 03 ÀS 
5058- 03 CS 02 90 04 FO O2 À9 
9000- À5 25 20 Ci FB A4 24 A9 9060- 01 85 03 BS 20 589 FF 50 
5008- 5F 91 28 À9 01 85 03 AS S068- 04 70 Bé 50 S2 BA CA CA 
9010- 00 20 Ci FB B8 20 58 FF 9070- 94 B8 20 58 FF 50 48 B8 
5018- 50 51 18 À9 Ci 65 02 85 9078- 20 58 FF 50 42 2C 58 FF 
9020- 04 AD 00 CO 10 FB 2C 10 9080- 60 48 B8 20 58 FF 50 1E 
9028- CO C9 Ci 90 06 C5 04 BG F088- 68 38 ES CO 85 03 B8 20 
9030- F0 90 4E C9 88 DO 02 F0 9090- 58 FF 50 D9 70 À7 B8 20 
9038- 5D C9 8D DO GE ÀS 25 20 9098- 58 FF 50 Of Cé 03 À5 03 
9040- Ci FB À4 24 A5 03 09 CO 9040- DO BF À5 02 DO BB Bâ CA 
9048- 91 28 460 C9 95 DO D2 B& POAS- Ch A À0 27 Bi 28 Q9 COQ 
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RS | 











tte 2 TT TE 


90B0- C9 E0 90 02 E9 40 
90B8- 88 10 F1 2C 58 FF 
90C0- CA CA 94 AD 28 88 
90C8- C9 A0 F0 F9 49 E0 
90D0- Bi 28 29 3F 91 28 
90D8- 01 BO F5 2C 58 FF 


91 28 90E0- CA CA 
60 BÂ 90E8- 00 85 
Bi 28 90F0- OF Eé 
FO F5 90F8- Bi 28 
88 C4 9100- 2C 58 
60 BA 


FA Àé 03 À4 01 À5 
05 20 Ci FB CA F0 
05 ÀS 05 20 Ci FB 
49 À0 FO F3 DO EE 
FF 60 





Les logiciels de traitement de texte 


Guy Lapautre 


Avant d'aborder l'analyse de Guten- 
berg, il m'a semblé intéressant d’exa- 
miner la conception globale d'un sys- 
tème de traitement de texte sur 
micro-ordinateur. Pour cela, nous 
allons comparer à Gutenberg deux 
classiques : Magic Window et Apple 
Writer IL. 


Magic Window 


Au lancement, Magic Window pro- 
pose un menu permettant de s’orien- 
ter vers l'édition, l'impression, la ges- 
tion des disques, … 


Dans la plupart des cas, ce premier 
choix dirige vers un second menu. 
Par exemple, la fonction de gestion 
des disques proposera des options 
telles que sauvegarde ou relecture, 
annulation. 


Quand on est.à l’intérieur de l'option 
édition, le mode de fonctionnement 
normal est le remplacement: taper 
sur une touche, quel que soit l’en- 
droit où l’on se trouve dans le texte, 
provoque le remplacement de l’an- 
cienne frappe par la nouvelle et, si 
l'on est en fin de texte, l'ajout du 
nouveau caractère. 


Si on désire insérer un ou des carac- 
tère(s) à l'intérieur d’un texte, il 
convient de se placer d'abord en 
mode insertion. 


Enfin, les formats d'impression font 
partie intégrante du texte, si on choi- 
sit de les sauvegarder dans l'option 
texte formaté”. 


Il s'agit là d’une des grandes origina- 
lités de Magic Window. Par ailleurs, 
les textes ainsi sauvegardés le sont 
en binaire. Ils tiennent moins de 
place sur disque que le même fichier 
en code ASCII et les échanges dis- 
que sont plus rapides. 


Apple Writer II 


Au lancement, Apple Writer Il se met 
en option édition, invitant à entrer di- 





rectement un texte. Si ce n'est pas ce 
qu'on désire faire, il faut demander 
un menu (disques, impression, fonc- 
tions auxiliaires), ou effectuer directe- 
ment une commande qui ne sort du 
mode édition que pendant son exé- 
cution (sauvegarde, lancement d'une 
impression). 


Le mode de fonctionnement normal 
est l'insertion : taper sur une touche 
provoque l'insertion du caractère 
frappé avant celui sur lequel se 
trouve le curseur. 


Si on désire procéder à un remplace- 
ment, il faut choisir ce mode particu- 
lier (qui ne permet d’ailleurs que 
l’utilisation des touches imprimables, 
à l'exclusion de toute clé de fonction 
ou de déplacement). 


Les formats d'impression sont indé- 
pendants des textes : le même format 
peut être utilisé pour plusieurs textes, 
mais il faut demander chaque fois 
l'utilisation d’un format d'impression. 


Par ailleurs, Apple Writer Il possède 
deux fonctionnalités originales : une 
fonction Glossaire permettant l'usage 
très simple de mots ou petites phra- 
ses à caractère répétitif, et un lan- 
gage associé permettant de program- 
mer des commandes, le *WPL”. 


Gutenberg 


Au lancement, Gutenberg propose 
une ligne de commande non 
commentée, qui permet de décider 
de l’utilisation d'un fichier (répertoire 
du disque, police de caractères, fi- 
chier texte. …). 


La mise en position d'édition se fait 
par l'appel d'un fichier texte: il faut 
ensuite appeler la fonction choisie 
(par exemple : insertion). Pour chan- 
ger de fonction, il convient de sortir 
du mode en cours (par ESC), puis 
de demander une nouvelle fonction. 


Les formats d'impression sont totale- 
ment indépendants des fichiers texte. 


Le logiciel en propose une grande 
variété, et il est possible d'en créer 
d'autres. Un système de macros” 
permet d’attacher un format standard 
à un texte. Un questionnement préa- 
lable à l'impression permet le choix 
d'un format non standard. 


Une grande originalité de Gutenberg 
est la possibilité de dessiner ses pro- 
pres polices de caractères : Guten- 
berg utilisant un écran graphique, 
toute fantaisie de représentation est 
possible : symboles mathématiques, 
sigles, logos... En contrepartie, l'im- 
pression de ces caractères spéciaux 
est très lente. 


Commentaires 


Ces différences fondamentales de 
conception font qu'il est trompeur de 
donner une cote de commodité d'uti- 
lisation ou de facilité d'apprentissage 
à un logiciel de traitement de texte : 
certains préfèrent le menu à la ligne 
de commandes. D'autres préfèrent 
travailler normalement en mode rem- 
placement (notamment ceux qui ont 
appris la dactylographie sur machine 
classique). D'autres enfin voudront 
avoir un texte prêt à l'emploi, y 
compris ses options d'impression. 


On peut donc comparer les fonction- 
nalités. Les fonctionnalités de base 
sont à peu près les mêmes partout, 
seules variant les conditions d’utilisa- 
tion. Par exemple, les déplacements 
dans le texte peuvent se faire uni- 
quement grâce aux flèches de direc- 
tion, ou utiliser des caractères de 
contrôle. 


En revanche (et nous en avons déjà 
vu quelques exemples), il existe pour 
chacun des fonctions particulières qui 
peuvent sembler primordiales aux 
uns, compte tenu du type de travail 
qu'ils effectuent, inutiles aux autres 
qui les trouveront sans intérêt. 
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Gutenberg est un logiciel de traite- 
ment de texte proposé par Guten- 
berg Software Limited, fonctionnant 
sur Apple II+ 64K ou /’e. 


Il existe en 2 versions: Gutenberg 
Junior (version testée ici) et Guten- 
berg Senior, présentant un certain 
nombre de fonctionnalités supplé- 
mentaires, dans des domaines qui se- 
ront indiqués au cours de l'analyse. 


Gutenberg Jr est présenté sur une 
disquette double face contenant, 
outre le programme proprement dit, 
divers fichiers utiles et, sous forme de 
démos”, tout ce qui est nécessaire 
pour éditer le manuel sur impri- 
mante. 


Si certains usages (limités) s'accomo- 
dent d'imprimantes diverses, le logi- 
ciel est essentiellement écrit pour 
l'imprimante matricielle Apple. Un 
jeu important d'interfaces graphiques 
est proposé. L'interface PROM 1/2 
pour Apple ne l’est pas, mais il suffit 
(nous l'avons découvert par tâtonne- 
ments.) de déclarer péremptoire- 
ment qu'on possède une interface 
Epson et tout marche bien (rien ne 
marche avec les autres interfaces 
proposées). 


Plusieurs modes de fonctionnement 
sont possibles, en 40 ou 80 colon- 
nes, en utilisant ou non l'écran gra- 
phique Haute Résolution pour les ca- 
ractères spéciaux. Mais ATTENTION, 
l'option la plus avancée : 80 colon- 
nes et écran graphique, nécessite une 
carte 80 colonnes ETENDUE (cette 
limitation fait l’objet de 2 lignes 1/2 
cachées” au fond d'un paragraphe). 


Mode d’analyse 


Nous évaluons les avantages et in- 
convénients de Gutenberg en fonc- 
tion de ce qu’un utilisateur de traite- 
ment de texte est en droit d'attendre, 
c'est pourquoi nous allons d’abord 
tenter une définition de cet utilisa- 
teur : il ne peut pas se contenter des 
possibilités offertes par les traitements 
de texte classiques. Il est prêt à payer 
ces exigences par une complexité 
plus grande à l’usage. Par exemple : 


- professeur de mathématiques vou- 
lant faire des polycopiés 

- électronicien utilisant les symboles 
de sa profession 

- styliste cherchant à associer des 
images, des logos... 


Avantages et inconvénients sont pré- 
sentés sous 7 têtes de chapitre : 


1 - Approche du logiciel 
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Gutenberg à l’essai 


2 - Les fonctions d'entrée de texte 
(édition) 

3 - Le formatage des pages et para- 
graphes 

4 - L'impression 

5 - Les échanges disque 

6 - La création de ‘polices de carac- 
tères” 

7 - La documentation 


1 - Approche du logiciel 


Au lancement, le logiciel propose 
d'abord de choisir l'interface pour 
l'imprimante matricielle Apple que 
lon va utiliser, puis d'indiquer le 
connecteur sur lequel cette carte est 
enfichée, enfin de choisir ou non le 
mode démos”. 


En mode de fonctionnement normal, 
une ligne de commande apparaît en 
haut de l'écran, indiquant notam- 
ment le mode écran” (haute résolu- 
tion ou non) et le lecteur de disque 
en usage (évidemment le 1 lors du 
démarrage) et proposant de démar- 
rer par READY”. 


On peut alors décider de ce qu'on va 
faire, par exemple, changer de dis- 
que ou de mode écran, travailler en 
40 ou 80 colonnes ou, après avoir 
pressé la touche “RETURN”, éditer 
le catalogue au disque, lire un fichier, 
exécuter un programme utilitaire de 
gestion de disque... 


Aucun mnémonique n'étant proposé, 
il y a donc au départ une dizaine de 
codes opératoires à connaître : 


1 ou 2 - lecteurs de disques 

4 ou 8 - 40 ou 80 colonnes 

I ou O - travail en haute résolution 
ou non (high; IDw) 

6 - ’re-boote” le système 

Ctrl-D - mode “démos” 

Ctrl-P - programme d'impression 
RETURN - demande d'un nom de 
programme ou du catalogue 


Nous retrouverons un peu tout au 
long des diverses fonctions un certain 
ésotérisme parfois gênant. C'est ainsi 
qu’en mode édition G est utilisé pour 
une recherche (comme GET et non 
pas F comme FIND) et X pour le 
remplacement d'un caratère par un 
autre (eXchange). 


Avantages - L'écran n'est pas en- 
combré par un menu. Une seule 
frappe suffit fréquemment pour réali- 
ser une commande. L'exécution de 
cette commande, dans la mesure où 
il n'y a pas d'appel au disque, est 
très rapide. 


Guvy Lapautre 


Inconvénients - Il faut avoir une 
bonne mémoire pour emmagasiner 
tous les codes, ou un synoptique très 
bien fait (il manque cruellement dans 
la documentation). 


Synthèse - I! SEMBLE que les au- 
teurs de Gutenberg n'aient pas mis 
au premier rang de leurs préoccupa- 
tions le souci de simplicité et de 
convivialité”, pour employer un 
terme à la mode. C'est clair et 
concis, c'est très abstrait. Il s’agit là 
d'une constatation et non d'un juge- 
ment. 


2 - Les fonctions d'’en- 
trée de texte (édition) 


Toutes les fonctions classiques sont 
là : déplacement du curseur dans le 
texte, insertion, effacement, rempla- 
cement, recherche par le contenu, 
déplacement de paragraphes, etc. 
Elles sont le plus souvent assorties 
d'un grand luxe de sous-fonctions. 


A titre d'exemple, voici les sous-fonc- 
tions permettant de ‘détruire’ tout 
ou partie d'un texte : 


e K détruit le caractère sous le cur- 
seur 

e DELETE détruit un mot 

e DW aussi 

e DL détruit une ligne 


D suivi des flèches : 


e gauche détruit le début d'une 
ligne 

e droite détruit la fin d'une ligne 

haut détruit depuis le début de 

l'écran 

© bas détruit jusqu'à la fin de l'écran 

D suivi de : 


e Ctri-S détruit tout l'écran 
e Ctrl-M marque la limite d’une des- 
truction 


Tout ce qui est ainsi détruit est irré- 
cupérable. 


Pour passer d’une fonction à une 
autre, il faut toujours ‘revenir à la 
case départ” par ESC. Soit par 
exemple la phrase "LOUI VAS A 
L'ECOLE” qu'on désire transformer 
en "LOUIS VA A L'ÉCOLE”. Voici 
une séquence normale d'opérations : 


Commande Ÿ (insertion d’un carac- 
tère) 

se placer derrière LOUI 

taper S 

ESC 


Commande X (remplacement) 
se placer sur ” 























taper ‘ 
ESC 


Se placer sur le S de VAS 
K (destruction d'un caractère) 


On peut imaginer plus simple ! 


ATTENTION, il y a un piège dans 
lequel l’auteur de ces lignes est sou- 
vent tombé : une séquence d'inser- 
tion doit se terminer par un retour 
aux caractères normaux, si On utilisait 
des caractères programmés. Si on a 
omis de le faire, aucune fonction ne 
reste disponible. Un “A” sur la ligne 
de commande prévient de cette si- 
tuation. En sortir par ‘Pomme ou- 
verte - RETURN”. 


Avantages - TRES larges possibilités 
dans de nombreux domaines (par 
exemple recherche dans le texte, re- 
copies, remplacements). Ces possibi- 
lités ne seront probablement pas 
utiles à tous, mais chacun peut y pui- 
ser ce qui l'intéresse (c'est d'ailleurs 
écrit dans la notice). 


Inconvénients - Mêmes remarques 
que pour le chapitre précédent, en 
notant qu'il ne s'agit plus d'une di- 
zaine de codes, mais de plusieurs di- 
zaines de sous-options (sans doute 
plus de 100 en comptant toutes les 
variantes). 


Synthèse - Sans trop perdre des 
fonctionnalités du produit, il eût été 
possible de faire plus simple. La 
frappe de textes très longs sans 
‘effets spéciaux” est lourdement pé- 
nalisée par le système d'édition 
adopté par Gutenberg. 


3 - Le formatage des 
pages et des paragraphes 


Là aussi, large panoplie de fonction- 
nalités, obligeant si on veut utiliser 
toutes les astuces, à une certaine jon- 
glerie avec les macros”: ce sont des 
commandes assez simples permettant 
là pagination, la présentation en 2 
colonnes. l'édition de lettres, d'éti- 
quettes, les différentes sortes de titra- 
ges hauts et bas, la numérotation en 
décimal ou en romain, l'indentation 
des paragraphes. leur numérotation. 
les sauts de lignes. … 


Des macros commandent aussi l'im- 
pression : types de caractères, gras 
où maigres, espacement proportion- 
nel ou non, avec des largeurs va- 
riées..…, ainsi que les débuts et fin de 
colonnes, de pages, enchaînement 
d'impressions.… 


Il existe au moins une centaine de 
ces macros. Mais il existe aussi, pour 
traiter les cas courants, des formats 
standards sur la disquette. A noter 
que des formats plus nombreux sont 
proposés par Gutenberg Sr. ainsi que 
la possibilité de créer de nouvelles 


macros. 





Les macros étant incluses dans le 
texte, le format d'impression, s'il est 
standard, fait donc partie de ce der- 
nier et lui sera toujours attaché. Une 
précaution à observer : le format uti- 
lisé doit être disponible sur la dis- 
quette. Gutenberg le recherchera au- 
tomatiquement. 


Si en revanche vous désirez utiliser 
vos propres formats, l'indication 
devra en être donnée au moment de 
l'impression. 


Avantages - Comme déjà vu, trés 
larges possibilités, avec en plus le 
moven de s'affranchir du maniement 
pas toujours simple des macros grâce 
aux formats préconstruits. 


Inconvénients - Le nombre consi- 
dérable de macros fait qu'il est tota- 
lement impossible de les connaître 
par coeur. L'absence d'un bon sy- 
noptique se fait sentir, à moins qu'on 
ne renonce aux possibilités offertes. 


Synthèse - Parfois abondance nuit. 
Mais ne jetons pas la pierre à qui a 
voulu bien faire. Quel dommage qu'il 
n'y ait pas un résumé des comman- 


des principales ! 
4 - L’impression 


Gutenberg est écrit pour impression 
sur l'imprimante matricielle Apple (cf. 
début de l'évaluation). Il est possible, 
mais nullement certain, qu'il puisse 
fonctionner avec d'autres impriman- 
tes. De même, une liste d'interfaces 
est proposée. D'autres sont possibles, 
la carte PROM 1/2 par exemple. 
Chaque utilisateur ne disposant pas 
d'une des configurations standard 
devra tâtonner, sans être sûr du 
succès. 


L'impression d'un texte écrit en ca- 
ractères “normaux” se fait sans pro- 
blèmes particuliers. Veiller seulement 
à ce que le format d'impression soit 
présent sur la disquette. 


En revanche. l'impression des carac- 
tères spéciaux (Alternate Character 
Set) se fait très lentement, car c'est 
une impression de GRAPHIQUE. Le 
passage, ligne par ligne, de l'impres- 
sion texte à l'impression graphique, 
produit un effet curieux. Le papier 
monte et descend: il y a des retours 
arrière, mais strictement aucun pro- 
blème n'a été rencontré. Le tout 
semble parfaitement fiable. 


Attention : si on utilise dans un texte 
des caractères spéciaux, il faut veiller 
à ce que la police de caractéres 
(FONT) utilisée pour l'édition se 
trouve bien sur le même disque que 
le texte au moment de l'impression. 


On peut regretter qu'il ne soit pas 
possible d'imprimer un texte en mé- 
moire sans passer par la séquence : 


Sauvegarde sur disque (automatique) 


Impression 
Rappel (si on veut réutiliser le même 
texte) 


sauf dans le cas particulier où on 
veut faire plusieurs impressions suc- 
cessives du même texte. 


Il existe des macros permettant de 
“jouer” avec les caractères, y 
compris par exemple double souli- 
gnement ou italique, et d’autres pour 
programmer des impressions. 


Signalons d'autre part une option 
“DUMP” qui permet l'impression to- 
tale d'un texte, Y COMPRIS les ca- 
ractères de contrôle. 


Avantages - Très grande souplesse 
et très grande fiabilité de l'impres- 
sion, utilisant toutes les possibilités de 
l'imprimante matricielle Apple. On 
peut produire des textes de très 
bonne qualité (voir exemple en an- 
nexe). 


Inconvénients - Tout juste peut-on 
citer l'impossibilité d'imprimer ‘en 
passant” un texte en mémoire. 
Synthèse - L'impression est incon- 
testablement un point fort de Guten- 
berg, et il faudrait être bien difficile 
pour ne pas apprécier les performan- 
ces du logiciel dans ce domaine. 


5 - Les échanges disque 


Ils sont relativement nombreux mais 
généralement assez brefs. C'est sans 
doute la raison pour laquelle les au- 
teurs proposent de faire une copie de 
la disquette Master, copie qui ne sera 
pas capable d'initialiser le système, 
mais qui pourra remplacer le Master 
après le “boot” initial. 


La seule précaution notable à pren- 
dre consiste à s'assurer que l'ensem- 
ble de ce dont on a besoin pour édi- 
ter ou imprimer un texte est présent : 
texte lui-même, format et police de 
caractères. 


Le passage d'un lecteur de disque à 
l'autre (2 lecteurs sont indispensa- 
bles) se fait très simplement par la 
frappe du chiffre 1 ou 2 quand on 
est en position READY”. 


Le système comporte un certain 
nombre de fonctionnalités intéressan- 
tes : 


Tout d'abord, il est possible d'éditer 
où d'imprimer le catalogue d'une dis- 
quette. Il est également possible de 
choisir un fichier (texte, format ou 
police de caractères) en pointant sur 
le catalogue. 


Ensuite, un certain nombre de 
commande type DOS sont directe- 
ment accessibles à partir de Guten- 
berg: initialisation, copie totale ou 
partielle, destruction, 


Îl n’y à pas lieu de faire de commen- 
taires spéciaux à ce niveau. 
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6 - La création de carac- 
tères 


C'est la principale originalité de Gu- 
tenberg par rapport aux traitements 
de texte classiques. celle qui fait que 
Gutenberg sera particulièrement ap- 
précié par les utilisateurs dont les be- 
soins sortent de l'ordinaire. 


Il existe une option “SCREEN” à 
partir de laquelle on peut dessiner 
sur une matrice de 7x*10 tout carac- 
tère, au sens le plus large du terme : 
alphabet étranger, symboles mathé- 
matiques, composants électroniques, 
structures chimiques. logos. orne- 
mentations diverses... 


Si une matrice est trop petite. on 
peut en utiliser plusieurs. Chaque 
matrice sera désignée par une touche 
au clavier. La police de caractères 
spéciaux ainsi construite sera utilisée 
(et créée) en faisant précéder la tou- 
che frappée de ‘/" (pour 1 carac- 
tère), ou de ‘Pomme ouverte RE- 
TURN” (pour une suite de 
caractères). Dans ce dernier cas. on 
désamorcera l'utilisation des caractè- 
res spéciaux par un second ‘P.O. 
RETURN”. Surtout, NE PAS L'OU- 
BLIER (cf. remarque dans le chapitre 
édition). 

Gutenberg Jr propose une de ces 
polices de caractères, comportant 
surtout des caractères accentués de 
format réduit. et d'esthétique discu- 
table - voir l'exemple en annexe. 


Gutenberg Sr est beaucoup plus 
riche dans ce domaine. 


L'exemple annexé donne un aperçu 
du type de caractères et symboles 
qu'il est possible de créer et d'impri- 
mer. À noter, pour les lecteurs réqu- 
liers de Pom's. que la méthode de 
création de caractères est très proche 
de celle décrite dans le Pom's 8, 
pages 21-23. 


Avantages - Indiscutables, les avan- 
tages que comporte cette fonctionna- 
lité font de Gutenberg un traitement 
de texte à part. 


Inconvénients - Lenteur de l'im- 
pression dès qu'on est en présence 
de caractères spéciaux. 


Synthèse - Le lecteur ne sera pas 
étonné de voir l'auteur particulière- 
ment séduit. Mais un conseil s'im- 
pose : nous avons déjà vu à plusieurs 
reprises que les performances de Gu- 
tenberg se pavaient au prix d'une 
certaine complexité, ce qui est bien 
normal. C'est vrai aussi ici. Guten- 
berg est sans doute le marteau-pilon 
pour écraser la mouche, s'il faut en- 
trer uniquement du texte banal au ki- 
lomètre. 


7 - La documentation 


Gutenberg est vendu SANS DOCU- 
MENTATION IMPRIMEE digne de 
ce nom: l'utilisateur imprime lui- 
même sa documentation en utilisant 
les démos proposées. On peut ou 
non apprécier une méthode qui 
certes réduit les coûts. mais qui 
complique la tâche de l'utilisateur 
(des heures de travail}, et donne des 
résultats dont la qualité n'est pas 
comparable à celle d'un manuel bien 
fait. 


Cette documention (en anglais) pré- 
sente des lacunes. dont la principale 
est le manque total (déjà signalé) 
d'un synoptique résumant les 
commandes PRINCIPALES. Certes. 
de-ci de-là, l'utilisateur est avisé que 
telle option est indispensable. alors 
qu'on peut remettre à plus tard 
l'étude de telle autre. Mais comme 
c'est nové dans l'ensemble du texte, 
la lecture n'en n'est pas facilitée. 


On peut aussi lui reprocher de ne 
pas mettre en valeur la grande origi- 
nalité que constitue la création de 


EXEMPLE 


Voici un exemple de frappe "au 
Kilomètre", avec justification à 


Quelques 


gauche. On utilise pour ce faire 


1a "MACRO" GL. 


LAeEET IMARIMÉENAINTÉ EI 
ever ,oie NTI OPEN CNT A7 
Ténaliiqure eé lignes 
JArÉiSFiees à dretle. 


IŒZ 


On peut aussi bien sur 


travailler 
Justification: 
et droite. 
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en 
gauche 


pleine 


exemples de 
composés par l'utilisateur: 


polices de caractères: très peu 
d'exemples sont présentés, alors que 
les formats et leurs macros tiennent 
de nombreuses pages. 


Nous n'apprécions nullement cette 
documentation, s'agissant d'un pro- 
duit qui n'est pas vendu à bas prix. 


Conclusion 


Gutenberg apparaît comme un traite- 
ment de texte présentant de nom- 
breuses originalités et des fonctionna- 
lités très variées. 


Parmi ses faiblesses - Un manie- 
ment complexe, obligeant très sou- 
vent à ‘hacher” le travail pour passer 
d'une option à une autre - Le fait de 
n'accepter, en principe, que l'impri- 
mante matricielle Apple - Une docu- 
mentation totalement indigne d'un 
logiciel de cette classe. 


Parmi ses forces - La possibilité 
pour l'utilisateur de créer ses propres 
“polices de caractères” - L'impres- 
sion, surprenante au premier abord, 
mais très fiable, d'un mélange de 
texte et de graphique - La possibilité. 
malgré de nombreux tâtonnements 
au début, de trouver dans la pano- 
plie des fonctionnalités offertes celles 
qui conviennent à un problème parti- 
culier. 


En synthèse - Gutenberg est peut- 
être la ROLLS des traitements de 
texte sur Apple. Il fut un temps où la 
ROLLS était livrée chauffeur 
compris. Sans aller aussi loin, Guten- 
berg n'est sans doute pas un traite- 
ment de texte à mettre entre toutes 
les mains, mais en revanche il sé- 
duira tous ceux -nombreux-qui veu- 
lent sortir du standard et du banal. 


Gutenberg. le second traitement de 
texte ? 


caracteres 


Je (ax T+bx Ë+cx) dx 


sin Ex ntx 1+x 2) 


Ce texte est un exemple d'impression 
programmée sur 2 colonnes. De nombreux 





autres formats d'impression sont disponibles. 





RSR | 


Pommesoft 
Philippe Faure 


Les programmes présentés ici per- 
mettent de charger l'Applesoft dans 
la carte langage. puis de le modifier. 
Les avantages que l'on peut retirer 
de l'implantation d'un BASIC modi- 
fié sont nombreux : 


e possibilité de programmer en lan- 
gue française (ou autre, bien sûr, 
selon les modifications apportées), 

® possibilité de ‘traduire’ en Pom- 
mesoft un programme déja écrit 
en Applesoft. Il suffit de sélection- 
ner le Pommesoft et de charger le 
programme : la traduction est au- 
tomatique, 

e de même, la démarche inverse est 
possible, et ce de façon automati- 
que grâce aux commandes &A et 
&P qui permettent respectivement 
de passer en Applesoft et en Pom- 
mesoft en cours de travail Ce 
transfert s'effectue sans perte du 
programme (contrairement aux 
ordres FP et INT). 

e modification de certaines routines 
de l’Applesoft (comme le ‘’GAR- 
BAGE COLLECTION”...). 


Le système impose un certain nom- 
bre de contraintes, et tout d'abord au 
niveau du matériel minimum requis : 


e un lecteur de disquettes, 

e sur un Apple Il+, il faut avoir 
“une carte langage” d'au moins 
16K, | 

e cette carte est incluse dans l'Apple 
{e, sur lequel à d’ailleurs été dé- 
veloppé ce programme. 


Par ailleurs, le programme EDI- 
TEURPS autorise la modification 
d'un ordre ou d’une commande et 
celle des messages d'erreurs. Cepen- 
dant, on ne peut dépasser la lon- 
gueur totale initiale des ordres, ni 
celle des messages. Si l’on veut rem- 
placer INPUT par DEMANDE, il faut 
réduire un autre ordre (par exemple 
SHLOAD qui ne sert que sur cas- 
sette). En fait, il s’agit d'une restric- 
tion relativement peu contraignante 
car, les ordres devant toujours être 
tapés au clavier, la tendance serait 
plutôt à la contraction qu'au déve- 
loppement ! 


De plus, tous les ordres ‘cassette” 
peuvent être réduits à un caractère 
(si possible de contrôle du type 
DEL). 


Les messages du SED ne sont pas 
modifiés mais il suffit d'utiliser un 
programme du style SPRECHEN SIE 
DOS paru dans Pom's (ou "DOS 
BOSS” par Beagle Brothers), ou de 
s'en inspirer, pour y parvenir. 
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Implantation et struc- 
ture 


Le système Pommesoft se compose 
de plusieurs éléments : 


AMPERPOMME : programme qui 
utilise l'ampersand (&) et qui permet 
de changer de BASIC. 
PSCREATEUR : utilise la routine de 
S.H.LAM pour mettre dans la carte 
RAM l'Applesoft trouvé en ROM. 
EDITEURPS : édition. modification. 
écriture, sauvegarde du Pommesoft. 

‘’Pommesoft + Moniteur” 
chargé dans la carte langage, résultat 
des modifications. 


AMPERPOMME 


Il s'agit d'un programme qui a été 
publié dans NIBBLE EXPRESS No 
2, page 143, et qui permet, grâce au 
vecteur &, de créer de nouvelles 
fonctions en assembleur pour le 
BASIC en affectant à chaque lettre 
de l'alphabet l'adresse d'un sous-pro- 
gramme en langage machine. Si la 
lettre choisie n'est pas assignée, il y a 
branchement sur SYNERR ($DEC9) 
pour affichage du message SYNTAX 
ERROR 


La version AMPERPOMME a été 
modifiée, car à l’origine, le BRUN 
impliquait une remise à zéro (vers 
SYNERR), ce qui obligeait à POKEr 
les adresse désirées. La version origi- 
nale comportait en outre un test sur 
"(” pour le passage de paramètres, 
qui, lui aussi, a été supprimé (ce qui 
explique le RTS prématuré et les 
NOP). Sur la liste de désassemblage 
ci-après, on trouve à gauche l'AM- 
PERPOMME et à droite la version 
originale, que l’on peut donc rétablir 
mais avec ‘’&A("” en place de “&A”: 


0300-A9 4C LDA #40 
0302-80 F5 03 STA $03F5 
0305-A9 20 LDA #$20 
0307-80 F6 03 STA $03F6 
0304-A9 03 LDA #$03 
030C-8D F7 03 STA $03F7 
030F-60 RTS A2=LDX 
0310-32 27? 

0311-A9 C9 LDA #07 
0313-90 4B 03 STA $034B,X 
0316-A9 DE LDA #$DE 
0318-9D 4C 03 STA $034C,X 
031B-CA DEX 

031C-CA DEX 

0310-10 F2 BPL $0311 
031F-60 RTS 

0320-8D 7F 03 STA $037F 
0323-20 70 EO JSR $#E07D 
0326-80 03 BCS $032B 
0328-20 C9 DE JSR $DEC9 
032B-20 B1 00 JSR $00B1 
032E-EA NOP 20=JSR 
032F-EA NOP BB 


0330-EA 
0331-AD 7F 03 
0334-38 
0335-E9 41 
0337-04 
0338-AA 
0339-BD 4B 03 
033C-8D 49 03 
033F-BD 4C 03 
0342-8D 4A 03 
0345-20 B7 00 
0348-40 80 03 


LDA 40348,X 
STA $0349 
LDA $0340,X 
STA 40344 
JSR 50087 
JP 50380 


ADRESSES PAR LETTRE 
034B-84 03 
034D-C9 DE 
034F-C9 DE 
0351-C9 DE 
0353-C9 DE 
0355-C9 DE 
0357-C9 DE 
0559-C9 DE 
035B-C9 DE 
0350-C9 DE 
035F-C9 DE 
0361-09 DE 
0363-C9 DE 
0365-C9 DE 
0367-C9 DE 
0369-80 03 
036B-C9 DE 
036D-C9 DE 
036F-C9 DE 
0371-09 DE 
0373-C9 DE 
0375-C9 DE 
0377-C9 DE 
0379-C9 DE 
037B-C9 DE 
037D-C9 DE 
037F-00 
ROUTINES POUR À ET P 

0380-8D 80 CO STA $C080 (Carte) 


P=$0380 


MK KECCESE AN DD 00 LETTRES END NME C 


0383-60 RTS 
0384-8D 82 CO STA $C082 (RON) 
0387-60 RTS 


NDLR: cette routine ne constitue 
certainement pas le moyen le plus 
simple pour n'utiliser que les instruc- 
tions &A et &P, mais nous vous la 
donnons néanmoins en l'état car elle 
pourra vous être utile pour d'autres 
applications. 


PSCREATEUR 


En utilisant la routine de S.H.LAM, 
ce programme fait une copie dans la 
RAM de l’Applesoft ROM et du mo- 
niteur. Ensuite, il charge "VOC” qui 
est une version légèrement modifiée 
des tokens Applesoft (tokens cou- 
rants et non utilisés en graphique) et 
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des messages BREAK, REENTER... 
Vous trouverez enfin d'article la liste 
des tokens de VOC et leurs équiva- 
lents standards. 

Les messages d'erreurs ne peuvent 
pas être chargés de cette manière car 
il faut modifier plusieurs adresses 
dans le code de l'Applesoft. Du fait 
de l'importance de l'Applesoft (42 
secteurs), il est impossible d'en avoir 
une copie entière sur papier. 


Il est bon de rappeler ici que les mo- 
niteurs de l'Apple II+ et de l'Apple 
le ne sont pas identiques. Nous ver- 
rons plus loin comment créer concrè- 
tement un fichier PS, mais notez de 
suite qu'il est indispensable de faire 
"RUN PSCREATEUR" avant d'exé- 
cuter EDITEURPS pour une pre- 
mière manipulation sur votre propre 
matériel. 


Structure de la table des 
tokens ($DODO-$D25F) 


Il est très facile de modifier cette 
table car tous les mots-clefs sont à la 
suite les uns des autres et l’interpré- 
teur les “repère” par leur dernier ca- 
ractère qui a le bit 8 on”. 

Par exemple, END est codé ‘’$45 
$4E $C4” et $C4 est égal à $44 (D) 
+ $80, $80 correspondant à 128 en 
décimal (cf EDITEURPS lignes 240 
(lecture) et 3030 (écriture)). 


Les messages d'erreurs sont d'un 
accès différent car l'Applesoft se sert 
du registre X pour pointer sur le 
début du message à écrire, en se dé- 
calant du début de la table des mes- 
sages selon la valeur de X. Il faut 
donc rechercher dans l'Applesoft les 
références à ’ERROR” et donner les 
nouvelles valeurs de décalage (cf 
EDITEURPS lignes 3070 à 3240). 


EDITEURPS 


Ce programme permet de modifier 
les instructions et les messages de 
l'Applesoft. Nous en présenterons les 
fonctions dans l'ordre des menus qui 
vous sont proposés. 


Premier menu 


1 - CHARGEMENT DE PS 
2 - SUITE DU PROGRAMME 
3 - SORTIE -> BASIC 


1: chargement de PS et d'AMPER- 
POMME, puis passage au deuxième 
menu. 

2: passage au deuxième menu. 
C'est le choix que vous devez faire 


lors de la création de votre premier 


fichier PS. 
3 : fin. 


Deuxième menu 


1 - COMMANDES APPLESOFT 
(modification des instructions) 

2 - MESSAGES D'ERREURS (modi- 
fication des messages) 


Pom's n° 11 


3 - SORTIE -> BASIC 


Après le choix des commandes ou 
messages, vous êtes amené au menu 
suivant. 


Troisième menu 


1 - LECTURE EN RAM 
2 - LECTURE EN ROM 
3 - SORTIE -> BASIC 


1: lecture des ordres ou messages 
stockés en RAM. 

2: lecture des tokens standards en 
DATA lignes 50000 et suivantes). 
Pour une première édition, ce sont 
ceux que vous devez lire puisque, en 
principe, les modifications que vous 
apportez peuvent porter sur l’ensem- 
ble des instructions ou messages (les 
tokens ‘francisés” de VOC seront 
alors remplacés par vos propres 
adaptations). L'option 1 serait à utili- 
ser ultérieurement pour une édition 
partielle sur un fichier PS déjà enre- 
gistré, ou encore pour ne remplacer 
que certains tokens du fichier VOC 
dès la première édition si la majorité 
d'entre eux vous convient. 


Moi PARLER 
FRANÇAIS . 





Menu général 


1 - VISUALISATION 

2 - MODIFICATION 

3 - ECRITURE 

4 - SAUVEGARDE POMMESOFT 
5 - SORTIE -> BASIC 


1: la visualisation permet de voir les 
tokens modifiés et leurs équivalents 
standards. 

2: les modifications se font dans un 
tableau de chaînes A$(150,1). Atten- 
tion, aucune modification n'est effec- 
tive tant qu'il n'y à pas eu écriture 
dans la RAM (option 3). 

Vous pouvez traiter les ordres en sé- 
quence ou les appeler directement 
par leur numéro. Un RETURN à vide 
conserve l'ancienne définition et 
passe à l’item suivant. En cas de mo- 
dification effective, la nouvelle défini- 
tion est répétée: un RETURN la va- 
lide, mais toute autre touche annule 
la modification. 

Le token numéro 40 est très impor- 
tant car il contient un complément 


pour respecter la longueur totale des 
tokens. Ce complément se fait auto- 
matiquement; en cours de modifica- 
tion on peut (il faut) le réduire au mi- 
nimum. 

Pour sortir de l'option “modification” 
avant la fin des tokens, il suffit de 
donner un numéro supérieur au 
nombre d'iterns. 

3 : écriture dans la RAM du tableau 
A$ et modification des pointeurs s'il 
s'agit des messages d'erreurs. 

4: sauvegarde du contenu de la 
carte sous le nom de PS. ATTEN- 
TION : s’il existait une ancienne ver- 
sion de PS, celle-ci est écrasée. Pour 
éviter cela, ne pas oublier de la ‘”re- 
nommer” après l'avoir chargée. 


Remarque importante 


Lors d’une modification des ordres, il 
ne faut pas oublier que l'interpréteur 
regarde” du début de la table vers 
la fin. Aussi ne doit-on pas trouver 
dans un mot une suite de caractères 
équivalente à un autre mot qui lui 
succède. Je m'explique : j'ai eu des 
problèmes à cause de LISTE qui ne 
voulait pas fonctionner comme un 
simple LIST, mais j'avais par ailleurs 
remplacé READ par LIS. Comme 
READ 5e trouve avant LIST (et donc 
LIS avant LISTE), ma commande 
était interprétée "READ TE”, ce qui 
me valait un beau message d'erreur ! 
Par contre, les ordres HGR et HGR2 
fonctionnent parfaitement car HGR2 
se trouve placé avant HGR dans la 
table et, de ce fait, est interprété 
avant lui. 

Il faut aussi éviter de réduire certains 
tokens : si l’on remplace TO en A, 
par exemple, la variable A devient 
inutilisable en Pommesoft. 


Revectoriser le FRE(0) : 
FRE(16)CONFIG 


Ce petit programme montre 
comment, par l'intermédiaire de la 
RAM, on peut facilement modifier 
l'Applesoft. 

En effet, lorsque la mémoire libre se 
réduit à moins d'un K octets, l'Apple- 
soft procède automatiquement ‘au 
nettoyage”, mais la routine employée 
(FRE{0)) est relativement lente. 
Pom's à repris dans son numéro 2 
un article de Randy Wissinton, paru 
dans Call A.P.P.LE. de janvier 
1981, qui proposait une routine de 
nettoyage-mémoire beaucoup plus 
rapide, que nous baptiserons 
FRE(16) pour la suite. 
FRE(16)CONFIG charge cette rou- 
tine et modifie l'adresse d'appel au 
FRE dans l’Applesoft en RAM. Il ne 
s'agit là que d’un exemple où la mo- 
dification est assez brutale” et loin 
d'être optimisée, mais les résultats 
sont éloquents : en utilisant le pro- 
gramme ci-dessous le chiffre 100 est 
inscrit au bout d'une minute environ 





FE 
cr 
Fr 
ET] 
| 

















si l'on se trouve en Pommesoft mo- 
difié, alors qu'il faut plus de 2 minu- 
tes trente pour l'Applesoft standard ! 


10 DIM A$(10000) 

20 A$(0) = "ABCDEFG” 

30 FOR J = 1 TO 20: Af$(J) = 
A$(0) + STRS (1) + A$(0) : NEXT : 
[= 1 + 1: PRINT I: GOTO 30 


Un petit truc en passant..: pour re- 
démarrer un programme BASIC par 
un GOTO (donc sans altérer les va- 
riables), tout en gardant le DOS 
connecté (et éviter l'ILLEGAL DI- 
RECT ERROR). il faut taper ‘POKE 
51,128: GOTO XXXXX'® (XXXXX 
étant le numéro de ligne concerné). 
Cela permet, par exemple. de ‘re- 
nommer” le programme PS sur dis- 





70 REM PSCREÂATEUR 
95 REM 


100 POKE 49281, PEEK (49281):Y#$ = 110 

“DOOO<DO00O.FFFFM N D9CéG": FOR 
POKE S11 + 
1, ASC Ç MID CY$,1,1)) + 128 


1 = 1 TO LEN CY#): 


: NEXT : POKE 72,0: 


44: PRINT : PRINT CHR$ (4)°"B 5 PRINT 
LOAD VOC": PRINT CHR$ (4)"BR 


UNAMPERPOMME " 


quette et de redémarrer ensuite dans 
EDITEURPS sans rien effacer par un 
POKE 51,128 : GOTO 250 


N.D.L.R. : si vous ne possédez pas 
la disquette d'accompagnement de 
ce numéro et si la frappe au clavier 
n'est pas votre loisir favori, notez 
bien que la saisie du code de VOC 
n'est pas indispensable au fonction- 
nement de Pommesoft (vous devrez 
simplement faire une première édi- 
tion de PS sur l'ensemble des tokens 
standards, puisque qu'aucun d'entre 
eux naura été francisé dans la 
RAM). 

Il faut dans ce cas enlever l'instruc- 
tion “"BLOAD VOC‘® dans le pro- 
gramme PSCREATEUR. 





Si vous voulez au contraire, saisir les 
codes hexadécimaux de VOC, vous 
pouvez utiliser la méthode suivante : 


- Supprimer de PSCREATEUR les 
instructions ‘BLOAD VOC® et 
"BRUN AMPERPOMME"® puis exé- 
cuter le programme ainsi réduit. 

- Passer en moniteur par CALL 
—151 et saisir le code de VOC à 
partir de l'adresse $D000. exacte- 
ment comme une récapitulation de 
programme-assembleur. 

- Revenir au BASIC par 3D0G et 
taper “POKE 49280.0" pour sélec- 
tionner la RAM en lecture. 

- Sauver VOC sur disquette par 
"BSAVE VOC, A$D000, L$260" et 
taper ensuite "POKE 49282.0" pour 
revenir au langage en ROM. = 


90 REM EDITEURPS 


95 REM 


100 POKE 49281, PEEK (49281) 


TEXT : 


HOME : PRINT TAB( 6)" 
CREATION DE BASIC FRANCAIS": POKE 


3 
120 T = 10: PRINT : VTAB T: PRINT 
CALL -— 1 “1 — CHARGEMENT DE PS“: PRINT 
"2 - SUITE DU PROGRAM 
ME": PRINT : PRINT "3 - SORTI 


E —-} BASIC" 


130 PRINT 


UTAB T + 7: PRINT "VO 


MODEMS TELSAT 


L' ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 
PAR LE RESEAU TELEPHONIQUE 


TELSAT 440 


Modem 300 bit/s full duplex 


TELSAT 640 


Modem 600/1200 bit/s full duplex 


Ces produits font partie de la gamme complète de modems, multiplexeurs et 
équipements de réseaux de transmission de données TELSAT distribués par 


S 





\TELC 





RASE IENN E TRE OUEN BRAUN qrpe am nnor — 
AS 


26 


Tél. 5841475 


international 69-71 rue du CHEVALERET 75013 PARIS 


Telex 204120F 
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TRE CHOIX (29 “;: GET R$:R = 
VAL CRHI:IR = R %x CR < 4): IF 
R = O0 THEN R = 2: IF R$£ < D. 


CHR#& (13) THEN 130 


132 PRINT R: IF R = 1 THEN PRINT 
5 PRINT CHR$ (4) *®BLOADPS": PRINT 
CHR$& (4) * BRUNAMPERPOMME 

135 IF R = 3 THEN 5000 


136 
150 


POKE 49283, PEEK (49283) 

X = DX: DIM A$(150,1) ,LL(30) :Q 

=  CHR$ (34):ÂAP = 0: HOME : 

= 10: PRINT : VTAB T: PRINT 

1 — COMMANDES APPLESOFT": PRINT 
: PRINT "2 - MESSAGES D’ERREU 

RS": PRINT : PRINT "3 - SORTI 
E —-> BASIC" 
PRINT : VTAB T + 7: PRINT “VO 
TRE CHOIX (1) ";: GET R$:R = 
VAL CRHI:IR = R %x CR < 4): IF 
R = O0 THEN R = 1: IF R$ < > 
CHR$ (13) THEN 160 
PRINT R: IF R = 3 THEN 5000 
PRINT : UTAB 2: IF R = 2 THEN 
DX = O:FX = 16:DY = 53856:FY = 
93856 + 240: FOR 1 = 1 TO 107 
: READ ÀA$: NEXT : PRINT TAB( 
10) "MESSAGES D’ERREUR.": GOTO 
190 

AP = 1:DX = O:FX = 10é6:DY = 53 
456:FY = 538595: PRINT TAB( 1 
1)"COMMANDES BASIC." 

LO = FY - DYil = O:X = DX:Q$ = 
CHR$ (34): FOR I = DX TO FX: 
READ A$S(I,0):L = L + LEN (A 

$(1,0)): NEXT 
HOME :T = 10: 


160 


165 
170 


180 


190 


200 PRINT : UTAB T: 
PRINT “1 - LECTURE MESSAGES 
EN RAM": PRINT : PRINT "2 - L 
ECTURE MESSAGES STANDARDS EN 
ROM": PRINT : PRINT "3 - SORT 

IE -> BASIC" 

PRINT : UTAB T + 7: PRINT "UD 

TRE CHOIX (1) "3: GET R$:R = 
VAL (CRHDIR = R * CR € 4): IF 
R= O0 THENR= 1: IF R$ < > 
CHR$ (13) THEN 210 

PRINT R: IF R = 3 THEN 5000 
IF R= 2 THEN FOR I = DX TO 
FX:A$CI,1) = A$CI,0): NEXT : 


210 


220 
230 


240 X = PRINT : FOR 1 = DY TO 
PEEK (1): VTAB 20: PRINT 
FrABCX — 1 x (X > 0),1 

3 — 958: PRINT :A&(X, 

>) = ABX,1) + CHR (À —- 128 
*% (À > 127)):X = X + CA } 12 

8): NEXT 

HOME :T = 10:H = 8: PRINT : 

T: PRINT TAB H)"1 - VISUALI 

SATION": PRINT : PRINT TABK 

H)°*2 - MODIFICATION": PRINT : 
PRINT TAB( H)°3 - ECRITURE" 
5: PRINT : PRINT TAB H)"4 - 

SAUVEGARDE POMMESOFT": PRINT 
: PRINT TABC H)*5 - SORTIE - 

> BASIC" 

PRINT : 


250 VTAB 


260 UTAB T + 11: PRINT TAB( 
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GOTO 


270R= - 1: 


1000 


1010 


1020 


1030 


1040 


1045 


1050 


1060 


2000 


2010 


2015 
2020 


2030 


2040 


2050 


2060 


2070 
3000 


3005 


H)"UOTRE CHOIX "3: 
VAL (R#): PRINT R: 

R > 5 THEN 260 

ON VAL (R$) GOTO iQ 
00,2000,3000,4000,5000 
HOME :T = 10:H = 8: PRINT 

T: PRINT TABC H)"1 


GET R$:R = 
IF R < 1 OR 


: VTAB 
— TOUT": PRINT 
: PRINT TAB(C H)"2 - RORNES": 
PRINT : PRINT TABC H)"3 —- R 
ETOUR Al MENU GENERAL" 


VTAB T + 7: PRINT TABC H)"U 
OTRE CHOIX “3: GET R$: PRINT 

R$: IF R$ < "1" OR R$ > *“3" THEN 
1010 

DE = DX:FI = FX: ON VAL CR$) 


GOTO 1050,1030,250 

PRINT : VTAB T + 9: PRINT "UV 
ALEUR DE DEBUT C“DX3: INPUT " 
) 3 "3R$S:DE = VAL CR$S)I + DX * 
{ VAL CR$) = 0): PRINT : VTAB 
T + 9: PRINT "VALEUR DE DEBUT 

! °DEs* n 

PRINT : VTAB T + 11: 
VALEUR DE FIN Ç"FX3: INPUT “) 

5 “sRS:FI = VAL CRH)D + FX * 
€ VAL CR) = 0): PRINT : VTAB 
T + 11: PRINT "VALEUR DE FIN 
Ê FL. " 

INPUT R$: IF R$ = "x" THEN PRINT 
5: PRINT “PRH1" 

INVERSE :C0 = G:Ci = 0: 
1 = DE TO FI:C0 = CO + LEN ( 
ASCI1,0)):C1 = C1 + LEN CA#(I 
512): PRINT I: PRINT A$(I,0), 

CO: PRINT A$(I,1),Ci1: PRINT : 

IF 1 / 5 = INT (I / 5) THEN 

GET R$ 

NEXT : NORMAL : PRINT : PRINT 
"FIN DES ELEMENTS":;: GET R$: PRINT 
: PRINT “PRH#O": GOTO 1000 

HOME : PRINT : UTAB 5: PRINT 
“LONGUEUR °L" MAXI"LO:I = 
R + 1 
T = 10: VTAB 10: 
QO (DE "DX*" À 


PRINT * 


PRINT “NUMER 
"FX" DEFAUT = * 
15: INPUT “ : "5R$:R = VAL ( 
RD: IF R$ = “" THEN R = I 
IF R > FX OR R < O0 THEN 250 
PRINT : VTAB 5: PRINT *LONGU 
EUR ";L 
INVERSE : PRINT : VTAB 12: PRINT 
ASCR,0): PRINT A$SCR,1)2: NORMAL 


INPUT R$: 
00 

INVERSE : PRINT R$;: NORMAL 
: GET T$: IF T$ < D  CHR$ (1 
3) THEN 2000 
L = L - LEN CA$S(CR,1)) + 
CRI :ABCR,1) = R$ 

GOTO 2000 

IF LO € L THEN PRINT "ECRIT 
URE IMPOSSIBLE : MAXI < LONGU 
EUR";: POKE - 16368,0: GET R 
$: GOTO 250 
A$(108,13 = “ 


IF R$ = *"* THEN 20 


LEN 


27 








28 


3010 IF L < LO THEN A$(40,1) = 


! 


“,LO 


FOR J = 1 TO LEN (A$(X,13): 
= 128 x (J = LEN (A$(X,1)) 
+ ASC € MIDS CABCX,12,J,1) 


3040 POKE I ,Ââ:Il = I + 1 


3050 NEXT J: PRINT : VTAB 22: PRINT 


X" "ASCX,1)3: CALL — 958:X = 
X + 1: IF X = < FX THEN 3030 


3055 IF AP THEN 250 

3060 Ci = O: FOR X = DX TO FX:Ci = 
Ci + LEN CA$S(X,12):LLCX + 1) 
= Ci: NEXT 

3070 POKE 57034,LL(1) 

3080 POKE 55674,LL(2) 

3090 POKE 57789,LL(3) 

3100 POKE 56488,LL(3) 

3110 POKE 57754,LL(4) 

3120 POKE 59é06,LL(5) 

3130 POKE 54289,LL(é6) 

3140 POKE 58485,LL(6) 

3150 POKE 55677,LL(7) 

3160 POKE 57751,LL(C8) 

3170 POKE 577539,LL(9) 

3180 POKE é60130,LL(10) 

3190 POKE 58124,LL(11) 

3200 POKE 56695,LL(12) 

3210 POKE 58803,LL(13) 

3220 POKE 58417,LL(14) 

3230 POKE 55449,LL(15) 

3240 POKE S8127,LL(16) 

3250 GOTO 250 

4000 PRINT : PRINT "UN MOMENT S.U 
.P.,.."3 PRINT : PRINT CHR$ « 


4)"BSAVE PS,A$SDO00,L#$3000": GOTO 


250 
9000 POKE 49280,0 
5010 TEXT : HOME : END 


10020 FOR I = 56560 TO SéSéé 
10025 PRINT CHR$ € PEEK (1) 
10029 NEXT | 
10030 FOR I = 56544 TO 56556 
10035 PRINT CHR$& ( PEEK (1)) 
10039 NEXT 

10040 FOR I = 54097 TO 54101 
10045 PRINT CHR$ ( PEEK (1)) 
10049 NEXT 

10050 FOR I = 54105 TO 54106 
10055 PRINT CHR$ ( PEEK (1) 
10059 NEXT 

10060 FOR 1 = 54110 TO 54114 
10065 PRINT CHR# ( PEEK (1)) 


10069 NEXT 
50000 DATA "END" ,"FOR","NEXT" ,"D 
ATA" ," INPUT" , "DEL" ,"DIM" ,"REA 
D","GR" ,"TEXT" ,"PR#" ,"IN#","C 
ALL" ,"PLOT" ,"HLIN" ,"ULIN®, "HG 
R2" ,"HGR" ,"HCOLOR=" ,"HPLOT" ," 
DRAUW" ,"XDRAU" ,"HTAB" , "HOME" 
DATA “ROT=" ,"SCALE=" ," SHLOA 
D" ,"TRACE" ,"NOTRACE" , "NORMAL" 
,"INVERSE" , "FLASH" ,"COLOR=" ," 
POP" ,"UTAB" ,"HIMEM:" ,"LOMEM:" 
,"ONERR" , "RESUME" ,"RECALL"* ,"S 


50010 


LEFT$ 


50020 


TORE" ,"SPEED=" ,"LET" 

DATA “GOTO" ,"RUN" ,"IF" ,"RES 
TORE" ,"&","GOSUB" , "RETURN" ,"R 
EM" ,"STOP* , "ON" ,"WAIT" ,"LOAD" 
, "SAVE" ,“DEF* ,"POKE" , "PRINT", 
“CONT" , "LIST" ,"CLEAR" ,"GET" ," 
NEW" 


90030 DATA “TAB(","TO","FN","SPCC 


90035 DATA 


50040 


50050 


50060 


",$ "THEN" ,"AT","NOT","STEP","+ 
Mot "et "7/8," "8, "AND" ,"OR", 
°>","=","<","SGN","INT",'"ABS"* 
;"USR" ,"FRE" ,"SCRN(® ,"PDL","P 


“SGR" ,"RND" , "LOG" ," 
EXP" ,"COS" ,"SIN" , "TAN" ,"ATN", 
“PEEK" ,"LEN" ,"STR#" ,"UAL" ,"AS 
C" ,"CHR$" ,"LEFTS" ,"RIGHTS$" ,"M 
1D$" 

DATA "NEXT WITHOUT FOR" ,"S 
YNTAX" , “RETURN WITHOUT GOSUB" 
, "OUT OF DATA" 

DATA “ILLEGAL QUANTITY","OU 
ERFLOW" ,"OUT OF MEMORY" ,"UNDE 
FD STATEMENT" ,"BAD SUBSCRIPT 
" ,"REDIM’D ARRAY" , "DIVISION B 
Y ZERO" ,"ILLEGAL DIRECT" ,"TYP 
E MISMATCH" , "STRING TOO LONG" 


DATA "FORMULA TOO COMPLEX"* 
s"CAN°T CONTINUE" ,"UNDEF ‘D FU 


NCTION"® 


90 REM FRE(ié6) CONFIG 

100 POKE 49281, PEEK (49281) 

110 TEXT : HOME : PRINT TABC 9)" 
FRE(16) AUTOMATIQUE" 

120 VTAB 7: PRINT "LE POMMESOFT D 


OIT ETRE CHARGE SOUS PEINEDE 

PLANTAGE !": PRINT : PRINT “C 
E PROGRAMME MODIFIE LA ROUTIN 
E APPLESOFT ‘ GARBAG”’ 

EN YŸ METTANT L'’ADRES-SE DE FR 
E(16)" 


125 T = 16: PRINT : VTAB T: PRINT 


130 


132 


135 


136 
140 


150 


"1 — CHARGEMENT DE PS": PRINT 
: PRINT “2 —- CONFIGURATION FR 
E(16)": PRINT : PRINT “3 - SO 
RTIE -}>} BASIC" 

PRINT : UTAB T + 7: PRINT “VO 

TRE CHOIX C2) “3:;: GET R$:R = 
VAL CR$) x € VAL (RS) < 4) 

R = O0 THEN R = 2: IF R$ < 
CHR$ (13) THEN 130 

PRINT R: IF R = 1 THEN PRINT 

: PRINT CHR$ (4) "BLOADPS": PRINT 
CHR$ (4) * BRUNAMPERPOMME" : GOTO 
100 

IF R = 3 THEN POKE 49280,0: TEXT 
: HOME : END 

POKE 49283, PEEK (49283) 

PRINT : PRINT CHR$ (4)"BLOAD 
FREC16) ,A$927C" 

POKE 58500,76: POKE 58501,124 

: POKE 58502,1i46 


IF 


Vus | 
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RECAPITULATION D058- 11 D9 C8 D9 48 D8 F4 03 D158- 45 52 53 CS 46 4C 41 53 
AMPERPOMME D060- 20 D9 6A D9 DB D9 6D D8 Di60- C8 43 4F 4C 4F 52 BD 50 
0300- A9 4C 8D F5 03 A9 20 8D D068- EB D9 83 E7 C8 DS AF D8 D168- 4F DO 54 41 42 Dé 48 49 
0308- F6 03 A9 03 8D F7? 03 60 D070- 12 E3 74 E7 D4 DA 95 D8 D170- 4D 45 4D BA 4C 4F 4D 45 
0310- 32 A9 C9 90 4B 03 A9 DE D078- A4 Dé 49 Dé 9F DB 48 Dé D178- 4D BA 53 49 45 52 D2 52 
0318- 9D 4C 03 CA CA 10 F2 40 DO80- 90 EB 23 EC AF EB OA 00 DI80- 45 4? 4: 52 03 40 20 20 
0320- 8D 7F 03 20 D EO BO 03 D088- DE E2 12 D4 CD DF FF E2 D188- 20 A0 C0 56 49 54 BD 53 
0328- 20 C9 DE 20 Bi 00 EA EA D090- 8D EE AE EF 41 E9 09 EF D190- 4F 49 D4 56 41 53 2D 45 
0390- EA AD ?F 03 28 E9 41 CA D098- EA EF F1 EF 34 FO 9E FO DI98- CE 52 95 CE 49 Cé 52 45 
0338- AA BD 4B 03 8D 49 03 BD D0AO- 64 E7 Dé Eé CS E3 07 E7 DIAO- 53 54 4F 52 C5 A6 47 4F 
0340- 4C 03 8D 4A 03 20 B7 00 D0OAB- ES Eé 46 Eë SA Eé 86 Eé DIA8- 53 55 C2 52 45 54 55 52 
0348- 4C 80 03 84 03 C9 DE C9 DOBO- 91 Eë 79 CD E7 79 A9 E7 DIBO- CE 52 45 CD 53 54 4F DO 
0350- DE C9 DE C9 DE C9 DE C9 DOB8- 7B 81 E9 7B 68 EA 7D 9% DIBB- 53 45 4C 4F CE 57 41 49 
0358- DE C9 DE C9 DE C9 DE C9 DOCO- EE 50 54 DF 46 4E DF 7F D{CO- D4 CO CO 44 45 Cé 50 4F 
0360- DE C9 DE C9 DE C9 DE C9 DOC8- CF EE 7F 97 DE 64 64 DF D1C8- 4B C5 45 43 52 49 D3 43 
0368- DE 80 03 C9 DE C9 DE C9 DODO- 46 49 CE 50 4F 55 D2 53 DiD6- 4F 4E D4 40 49 53 54 C5 
0370- DE C9 DE C9 DE C9 DE C9 DOD8- 35 49 56 41 4E D4 44 4F DID8- 45 44 46 41 43 C5 47 45 
0378- DE C9 DE C9 DE C9 DE 50 DOEG- 4E 4E 45 45 D3 44 45 4) DIE0- D4 4E 45 D7 54 41 42 A8 
0380- 8D 80 CO 60 8D 42 CO 60 DOEB- 41 4E 44 C5 53 55 DO 44 DIE8- 56 45 52 03 46 CE 45 53 

DOFO- 49 CD 4C 49 D4 47 D2 54 DIFO- 50 AB 41 4C 4F 52 D3 41 
CODE DE VOC DOFB- 45 58 54 C5 50 52 A3 49 DIF8- D4 4E 4F CE 50 41 D3 AB 
D000- 6F DB 45 D7 F8 DC 94 D? D100- 4E A3 43 41 40 CC 50 4€ D200- AD AA AF DE 45 D4 4F DS 
D008- 81 DB 30 F3 D8 DF E1 DB D108- 4F D4 48 4C 49 CE 56 4C D208- BE BD BC 53 47 CE 45 4E 
D010- 8F F3 98 F3 E4 Fi DD F1 D110- 49 CE 48 47 52 B2 48 47 D210- D4 41 42 D3 55 53 D2 46 
D018- D4 F1 24 F2 31 F2 40 F2 D118- D2 48 43 4F 4C 4F 52 BD D218- 52 C5 45 43 52 A8 50 44 
D020- D7 F3 Ei F3 E8 Fé FD Fé D120- 48 50 4C 4F D4 44 52 4j D220- CC 50 4F D3 52 41 C3 48 
D028- 48 F7 6E F7 Eé6 F7 57 FC D126- D7 58 44 52 41 D7 54 41 D228- 41 DA 4C 4F C7 45 58 DO 
D030- 20 F7 26 F7 74 F7 60 F2 D130- 42 C8 45 43 52 41 CE 52 D230- 43 4F D3 53 49 CE 54 4 
D038- 6E F2 72 F2 76 F2 7F F2 D138- 4F 54 BD 53 43 41 4C 45 D238- CE 41 54 CE 50 45 45 CB 
D040- 4E F2 4A D9 55 F2 85 F2 Di40- BD CO 54 52 41 43 C5 50 D240- 4C 4F CE 43 48 Ad 56 41 
D948- AS F2 CA F2 17 F3 BB F3 D148- 41 53 54 52 41 43 C5 4 D248- CC 41 53 C3 43 41 52 A4 
D050- SE F3 61 F2 45 DA 3D D9 | D150- 4F 52 4D 41 CC 49 4E 54 D250- 47 41 55 A4 44 52 4F A4 


D258- 4D 49 4C A4 49 44 A4 00 
TOKENS Standards et Tokens de VOC 


END TEXT HCOLOR= | TRACE | LOMEM: [IF LOAD NEU 4 { SR LEN 

FIN TEXTE | HCOLOR= | TRACE | LOMEN: |1F 3 NEW + { RAC LON 

1 10 19 28 37 46 55 64 73 82 9 100 

FOR PR4 HPLOT | NOTRACE | ONERR | RESTORE | SE TAB - SGEN RND STR$ 
POUR PRÈ HPLOT | PASTRACE| SIERR | RESTORE | à TAB - SN Haz CH$ 

2 ii 20 29 38 47 54 65 74 83 92 101 

NEXT IN4 DRAN | NORMAL | RESUME | & DEF T0 INT LOG VAL 

SUIVANT | INE DRAW | NORMAL | REPARS | & DEF VERS |: ENT LOG VAL 

3 12 21 30 39 48 57 66 75 84 93 102 

DATA CALL XDRAW | INVERSE | RECALL | GOSUB | POKE FN / ABS EXP ASC 

DONNEES | CALL XDRAW | INVERSE | 3 GOSUB | POKE FN / ABS EXP ASC 

4 13 22 31 40 49 58 67 76 85 94 103 

INPUT | PLOT HTAB FLASH | STORE | RETURN | PRINT | sPct . USR COS CHR$ 
DEMANDE | PLOT TABH FLASH  |3 RETURN | ECRIS | ESP& : USR cos CARS 
5 14 23 32 4 50 59 68 77 86 95 104 

DEL HLIN HOME COLOR= | SPEED= | REN CONT THEN | AND FRE SIN LEFT$ 
SUP HLIN ECRAN  |COLOR= | VIT= REN CONT ALORS  |ET FRE SIN GAUS 
6 15 24 33 42 si 60 69 78 87 96 105 

DIN VLIN ROT= POP LET STOP LIST AT œR SCRNC | TAN RIGHTS 
DIN YLIN = POP SOIT STOP LISTE |A OÙ ECR( TAN DRO$ 
? 16 25 34 43 52 él 70 79 88 97 106 

READ HGR? SCALE= | VTAB 60TO N CLEAR | NOT ) POL ATN MID$ 
LIT HGR? SCALE= | TABV VAS-EN | SELON | EFFACE | NON } PDL ATN MIL$ 
8 17 26 35 44 53 62 71 80 89 98 

ER HER SHLOAD | HINEM: | RIN MAIT | GET STEP |= POS PEEK 

GR HGR 3 HIMEM: | RIN WAIT | GET PAS = POS PEEK 

9 18 27 36 45 54 43 72 8 90 99 
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CALVADOS 





TOUTE LA BOURSE SUR L'ECRAN 
DE VOTRE ORDINATEUR PERSONNEL 


e Cotations de 100 bourses dans 40 pays 

e Gestionnaire de portefeuilles 

e Lettres de Conseils ponctuels 

e Documentation complète sur les sociétés 
e Passage d'ordres par la messagerie 


e et, bien entendu, tous les autres services 
Calvados 


Documentation gratuite sur demande 


Boîte Postale 21-07 75327 Paris Cédex 07 
Tél. : (1) 705.09.04 
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02100 SL Quentin 
02200 Soissons 

03200 Vichy 

06000 Nice 

06000 Nice 

06000 Nice 

06000 Nice 

06000 Nice 

06150 Cannes la Bocca 
06400 Cannes 

06600 Antibes i 
06700 St-Laurent-du-Var 
06700 St-Laurent-du-Var 
11900 Narbonne 

13005 Marseille 

13006 Marseille 

13006 Marseille 

13006 Marseille 

13007 Marseille 

13008 Marseille 

13008 Marseille 

13090 Aix-en-Provence 
13100 Aix-en-Provence 
13127 Vitrolles 

13200 Arles 

13231 Marseille 

14300 Caen 

14490 Le Tronquay 
16000 Angoulème 
20121 Ferney-Voltaire 
21000 Dijon 

21000 Dijon 

21000 Dijon 

24001 Périgueux Cédex 
25000 Besançon 

25000 Montbéliard 
26500 Bourg-les-Valence 
28000 Chartres 

29000 Quimper 

29000 Quimper 

30000 Nimes 

30000 Nîmes 

30120 Ales 

31000 Toulouse 

31000 Toulouse 

31000 Toulouse 

33081 Meriadeck Bordeaux Cédex 
34000 Montpellier 
34130 Valergues 

35000 Rennes 

35000 Rennes 

35100 Rennes 

37000 Tours 

37000 Tours 

37000 Tours 
37000 Tours 

38100 Grenoble 
38100 Grenoble 






39100 Dole 

40100 Dax 

44013 Nantes 

45000 Orléans 

45000 Orléans 

45000 Orléans 

49000 Angers 

51100 Reims 

53000 Laval 

54000 Nancy 

54000 Nancy 

54404 Longwy Cédex 
54520 Laxou 

56000 Vannes 

57000 Metz 

57000 Metz 

57110 Yutz 

57800 Frevming Merlebach 
59000 Lille 

59000 Lille 

59150 Wattrelos 

59300 Valenciennes 
59700 Marcq en Barœul 
59800 Lille 

59800 Lille 

60100 Creil 

60108 Creil 

61000 Alençon 

62000 Arras 

62200 Boulogne-sur-Mer 
63008 Clermont-Ferrand Cédex 
63014 Clermont-Ferrand Cédex 
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COGNET 

SOFIC 

03 INFORMATIQUE 

DSA INFORMATIQUE 

FNAC NICE 

MCS 

MICRO-MEDIA 

SORBONNE INFORMATIQUE 
ONDE MARITIME 

SIVEA CANNES 

ESPACE INFORMATIQUE 
COMPUTERLAND MOS 
NOUVELLES GALERIES POINT MICRO 
R21 INFORMATIQUE 

ELP INFORMATIQUE 
COMPUTERLAND CPL 
ELECTRONIC SERVICE COMPUTER 
INTERNATIONAL COMPUTER 13 
PROVENCE SYSTEM 
MEDIATEC 

MICROMAG 

SOPROGA 

ECO INFORMATIQUE AIX 
FEEDER 

LUDO 

FNAC MARSEILLE 
COMPUTERLAND CAEN 
NORMANDIE INFORMATIQUE 
L'HOMME 

CIP 

LASOBIKOR 

OMG 

SETTEM 

MPBI 

VAGNEUX S.A, 

MICRO ALPHA SOFT 

ECA ELECTRONIQUE 

BIP INFO 

LA BOUTIQUE INFORMATIQUE 
MATRICE DEVELOPPEMENT 
ELECTRONIQUE TELE INFORMATIQUE 
MICRONIM 

ARCOMEL 

BURE AUMATIQUE 

FNAC TOULOUSE 

SOUBIRON 

SIVEA BORDEAUX 

MICRO 34 

CEBEA 

COMPUTERLAND BRETAGNE 
X-MATIC 

DELTA MICRODIN 

AREI 

BOUTIN INFORMATIC 

POLY SOFT 

SELECTRON 

FNACGRENOBLE 

GAMMA INFORMATIQUE 


SERVICE CALVADOS 
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Mme. Mebs 
Mme. Julien 


M 


M 


M. 


M 


. Rathueville 
M. 
M. 


Mouchon 
Couvreur 
Abitbol 


Seyrat 


. Cornillon 
M. 
M. 
M. 


Irving 
Ragazzi 
Guibert 


Mme. Perdriot 


M. 
. Giacobetti 
. Michelon 


Ces concessionnaires 


Bocognano 


. Muniglia 
. Bouchoux 
- Dewavrin 


Barental 


- Gauthron 
. Devred 


- Desserteaux 


Cheval 


. Lhomme 
. Sicttenhaar 
. Bikar 

. Laurenti 
. Barbier 

. Parinet 

. Joly 

- Ravey 

- Pons 

- Cabouro 
. Lemoelle 
- Mahé 


Aguilla 


- Belaïche 

- Raffin 

. Tissot 

. Claustre 

. Soubiron 

. Licgeois 

. David 

. Depeyroux 
. Cador 

. Hardy 

. Prenveille 
- Brossard 

- Boutin 


Caoudal 


- Cazin 
. Barbera 


Bragagnolo 


APPLE 


21, rue Victor Basch 

10, place du Laon 

7, rue Voltaire 

5, Bd. Dubouchage 

24, av. Jean Médecin 

7, rue Dante 

27, rue Delille 

40, rue Gioffredo 

28, Bd. du Midi 

14, Bd. de la République 

1, Chemin S1.-Cloud 

Av. Léon Béranger 

C.C. Cap 2000 

5, quai Vallière 

20, rue Hugueny 

1, av, de Corinthe 

39, cours Lieutaud 

64, av. du Prado 

74, rue Sainte/Le Saint-James 
485, av. du Prado 

C.C. Mermoz/l11,r.J. Mermoz 
Av. de l'Europe/Les Facultés B 
Résid. Sextus/Bd, Victor Cousin 
Bastide Blanche RN 113 

27, rue de la République 
Centre Bourse 

12, rue St-Pierre 

Résidence La Tuilerie 

186, route de Bordeaux 

43 bis, av. du Jura 

7, rue Monge 

20, rue Michelet 

36, rue Jeannin 

4, av. d'Aquitaine B.P. 92 

58 ter, Faubourg Rivotte 

11, Impasse du Laquet 

22, Thannaron 

58, rue Grand Faubourg 

C.C. Rallye-Route de Benodet 
2, Venelle de Kergos 

58, rue Pierre Semard 

10, rue de la Trésorerie 

8 bis, rue Mistral 

4, Promenade des Capitouls 

1 bis, Promenade des Capitouls 
9, rue Kennedy 

Rue du Corps Franc Pommies 
7 Cours Gambetta 

Route Nationale 113 

13, av. du Mail 

161, av. du GI. Patton 

4, place Bretagne 

8, allée du Manoir 

36, rue Marceau 

67, rue Michel Colombe 

15, rue de Jérusalem 

3 Grande Place 

9 Cours de la Libération 
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GERMOND 

PLI 

SIVEA-NANTES 

AGO 

AMC 

EUROPE ORDINATEUR 
INFORMATIQUE SERVICE 
ORGANIGRAMME 

SLAD INFORMATIQUE 
PRECILAB 

VLASTOS JEAN 

RANDOM 

SEMITEC 

L'ORDINATEUR 56 

FNAC METZ 

LA MICRO BOUTIQUE-ECONOMAISON 
MICROSERVICE 

CMI 

FNAC LILLE 

SIVEA LILLE 

RYO CATTEAU 
MICROMEGA 
MICRODATA INTERNATIONAL NORD 
MBDC 

PAMP MICRO INFORMATIC 
HAPEL 

QUENEUTTE 

TEMPS X 

SICORFE 

DIF ELECTRONIQUE 
NEYRIAL INFORMATIQUE 
FLAGELECTRIC 


ZzZxz22 


Demandez-leur une démonstration! 


. Germond 


. Bachelier 
- AUTOUR 

. Callier 

- Pouysegur 
. Fortier 

. Coutant 

. Le Grand 

. Bonnechere 
. Vlastos 

. Lentz 

. Faber 


. Hochard 
- Le Besnerais 


Stutzmann 


- Becker 


Mortier 


- Baisse 


. Merchet 

. Williamson 

. Bayart 

. Paris 

. Haentjens 

. Queneutte 

. Courreau 

. Delpierre/M. Recourt 


Hagnere 


. Neyrial 


Areste 


12, av. Eisenhower 

9, Cours Pasteur 

21, Bd. Gabriel Guisth'au 
48, Bd. Alexandre Martin 
13, rue des Minimes 

22, Bd. Alexandre Martin 
42, rue Parcheminerie 

16, rue Emile Zola 

10, rue du Val de Mayenne 
9%6, rue Stanislas 

143, rue Sgt. Blandon 

18, rue Mercy/BP 410 

69, rue de Mareville 

38, Bd. de la Paix 

14, rue Tête d'Or 

3, rue Paul Bezanson 

2 route de Thionville 

3, place de la Gare 

9, place du Général de Gaulle 
21 bis, rue de Valmy 

13, rue Edouard Vaillant 
38, rue de Famars 

920, av. de la République 
172, rue Solferino 

5, rue de Pas 

2 bis, av. de l'Europe 

22 Bd. de la République 
42, rue de Lattre de Tassigny 
18 bis, rue Lamartine 

71, rue du Camp de Droite 
3 cours Sablon 

ZI du Brezet, 142, av. J. Mermoz 


suite page suivante >>» 


(23)62.72.89 
(23)53.7147 
(70}31.74,00 
(93)85.15.96 
(93)92.09.09 
(93)96.50.55 
(193)85.28.06 
(93)58.17.55 
193)47,44.30 
(93)39.29.09 
(93)74.78.01 
{93)07.61.12 
(93)31.2440 
(68}65.15.83 
(91)94.9L.13 
(91}78.02.02 
(91)42,99,42 
(91)37.25.03 
(91)33,23,33 
(91)7145.45 
(91)71.79.13 
(42)61,12.43 
(42)27.11.48 


(90) 96.79.03 
(91)91.30.62 
(31)85.62.48 
(31)92.56.09 
(45)95.27.37 
{50)40.62,34 
{80)30.09,70 
{80}30.12.70 
(80166,16.43 
(53)53,44.28 
{81)81.12.56 
(81)97.16.46 
(75)42.68.88 
(37)21.7451 
(98)53.33.88 
(98)55.75.93 
(66)36.02.52 
(66)21.08.91 
(66)30.05.62 
{61}21.87,27 
(61)23.11.08 
(61)121.64.39 
(56)196,28.11 
(67)92.91.23 
(67)86,75,75 
(99)54.47,12 
(99)38.3 1.80 
(99)30.65.18 
(47)64.69.93 
(47)20.51.83 
(47)66.66.49 
{47}20.80.70 
(76)09.46.63 
(76)96.30.05 







(84)72.49.11 


{40)47.53.09 
G8)54.45.13 
(38)62.62.58 
(38)54.13.15 
(41188.47.06 
(26)88,51.13 
(43)49.25.45 
(8)337.06.78 
(81341.26.26 
(8)224.80.11 
(8)340.43.38 
(97)42.52.20 
(8)736.16.22 
(8)775.41.56 


(8)781.14.89 
{20)30.72.30 
(20)57.88.43 
(20)75,92.23 
(27)42.30.30 
(20)98.60.06 
(20)57.91.87 
(20)54.62.22 
{4455.03.30 
{4)425.04.26 
(33}26.79.98 
(21)23.08.56 
(21)30.75.68 
(73)92.89.50 
(73)92.13.46 
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64000 Pau 

64100 Bayonne 

67000 Strasbourg 

67000 Strasbourg 

67000 Strasbourg 

67200 Strasbourg-Koenigshofien 
68000 Colmar 

68000 Colmar 

68200 Mulhouse 

69002 Lyon 

69003 Lyon 

69003 Lyon 

69004 Lyon 

69006 Lyon 

69006 Lyon 

69007 Lyon 

71000 Macon 

72000 Le Mans 

72000 Le Mans 

72000 Le Mans 

74000 Cran Gevrier Annecy 
74102 Annemasse 
75001 Paris 

75001 Paris 

75005 Paris 

75007 Paris 

75007 Paris 

75008 Paris 

75008 Paris 

75008 Paris 

75008 Paris 

75008 Paris 

75008 Paris 

75008 Paris 

75009 Paris 

75009 Paris 

75009 Paris 

75009 Paris 

75009 Paris 

75010 Paris 

75010 Paris 

75011 Paris 

75011 Paris 

75012 Paris 

75012 Paris 

75013 Paris 

75014 Paris 

75015 Paris 

75015 Paris 

75015 Paris 

75015 Paris 

75015 Paris 

75015 Paris 

75015 Paris 

75015 Paris 

75016 Paris 

75016 Paris 

75017 Paris 

75017 Paris 

75017 Paris 

75017 Paris 

76000 Rouen 

76000 Rouen 

76200 Dieppe 

78000 Versailles 

78100 St.-Germain-en-Lave 
78117 Chateaufort 
78190 Trappes 

80000 Amiens 

80000 Amiens 

84000 Avignon 

85000 La Roche-sur-Yon 
85105 Les Sables d'Olonne 
86000 Poitiers 

87000 Limoges 

20000 Beltort 

91000 Evry 

91700 Ste.-Geneviève 
92086 Paris La Détense Cédex 
92100 Boulogne Billancourt 
92120 Montrouge 
92130 Issy-les-Moulineaux 
92200 Neuilly-sur-Seine 
92600 Asnières 

92800 Puteaux 

94160 St.-Mandé 

95200 Sarcelles 

95526 Cergy Pontoise Cédex 
97200 Fort de France 
97209 Fort de France 
97400 St-Denis de la Réunion 
98000 Monaco 

Maroc Casablanca 
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SERVICE CALVADOS 


LE RESEAU MICRO INFORMATIQUE 


OBBO ADOUR 

LE CALCUL INTEGRAL 
CILEC 
FNACSTRASBOURG 
MICRO-MAT 

WALZ INFORMATIQUE 
EDS JL VOGEL 

FNAC COLMAR 

FNAC MULHOUSE 
TERTIAL 

ALPHA SYSTEMES 

BIMP 

AB INFORMATIQUE 
ALTI INFORMATIQUE 
ECO INFORMATIQUE 
FNAC LYON 

CLINIQUE ELECTRONIQUE 
AESCULAPPLE 

ASCI 

OMB LE MANS 

SIGE A 

DSA MICRO 

FNAC FORUM 

NASA SEBASTOPOL 
NASA MONGE 

MVI 

NASA CEMP 

AME 

EUROPE COMPUTER SYSTEMS 
FNAC ETOILE 

INTERSIS 

ORDINATEUR INDIVIDUEL AFFAIRE 
POINT MICRO LA BOETIE 
SIVEA 

COMPUTERLAND MOS 75 
JCR ELECTRONIQUE 

LPS 

NASA CEDL 

SAVEMO 

HELLO 

SOFT MACHINE 


NASA CEDM 
NASA MONTELEC 
HI FI MADISON 


MICRO ASSISTANCE 

NASA DECOM 

SIDEG 

ANTIGONE 

MICRODATA MDI 
BSCINFORMATIC 

GAMIC 

NASA GAD 

RANDOM PARIS 

ESPACE TEMPS REEL 
GUEZOULI INFORMATIQUE 
ELECTRODOM 

MICRORAMI 

ORDI GESTION 

AVIRADIO AR INFORMATIQUE 
PROBE INFORMATIQUE 
BUROTEC 

LOGIC 

SYNERGIE INFO 

OMICRON INFORMATIQUE 
IDEES INFORMATIQUES 
LISTE INFORMATIQUE 
MICROLIM 

FNAC BELFORT 

NASA SDESP 

NASA GENELEC 

POINT MICRO LA DEFENSE 
MINIGRAPH MICRO INFORMATIQUE 
SERAP MICRO INFORMATIQUE 
AGI 

IMATIC 

NASA ADE 

GEMINI INFORMATIQUE 
MICRODATA ST-MANDE 
MICROKEY 95 
ORGAMATIQUE 

POINT MICRO MARTINIQUE 
MICRO TRAITEMENT 
MICRO SYSTEMES SERVICES 
MICROTEK 

AMERICAN MICRO COMPUTERS 


. Zcbrowski 
. George 

- Martin 

- Rivet 
.Jung 


. Vogel 


. Barremlin 
. Houot 

. Barre 

. Chastaing 
. Asensio 

. Combet 


. Thierry 

. Bouquet/M. Damiani 
À. Besnard 

. Muzelle 

. Coudrcuse 

. Pailier 

. Domenjoz 

Maisonnave 


- Roland 
. Vernet 
. Singer 
. Bonnigal 
. Lemoine/M, Guyonneau 
. Flandin 
. Lallemand 
M. Haegeli 
. Anglade 
.Cleenwerck/M, Bettiche 
. Giannetti 
Talar/M, Pautasso 
Sokolski 





. Vanlleteren 
. Moreno 
Leconte 
M. Lamarre 


. Bouvet 
Laine 


Gaillard 


Deban 
. Petit 
. Ratier 
. Rieul 
M, Root 


Mme. Lebail/M. Pewzer 
Mme, Muller 
. Perche 
M, Smadja 
A. Galene 
A. Singer 
Lentz 
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Comparaison de deux programmes 
en langage machine 


Voici un utilitaire spécifique et rapide 
pour comparer deux versions d'un 
programme en langage machine 
(code hexadécimal), afin d’en identi- 
fier la plus récente ou de vérifier 
leurs différences. 


Lorsque l'on a rentré le code de 
BCOMP, ou qu'on l'a chargé par un 
BLOAD à partir de la disquette d'ac- 
compagnement de ce numéro de 
Pom's, il faut l'exécuter une première 
fois par un ‘CALL 2061” avant sa 
sauvegarde (on appuie sur RETURN 
à la question ‘nom du programme” 
pour le stopper). On peut ensuite 
faire "SAVE BCOMP® et "RUN 
BCOMP” pour l'utiliser. J'ai bien dit 
"SAVE" et non "BSAVE"” car, après 
ce premier CALL 2061. la routine se 
manipule comme un programme Ap- 
plesoft. 


L'explication de ce mystère tient à ce 


que les codes hexadécimaux qui fi-” 


gurent en tête de la routine sont la 
représentation-mémoire de la ligne 
Applesoft “10 CALL 2061”. Lors de 
l'exécution. la position FPROG (fin 
de la routine) est stockée aux adres- 
ses 175-176 (pointeur de fin d'un 
programme Applesoft) et les trois 
derniers octets sont bien des O, 
comme pour les programmes Apple- 
soft. 

Vous pouvez transposer directement 
cette petite astuce pour n'importe 
quel programme en langage machine 
dont l'origine est à l'adresse 2048 
($800): elle simplifie notamment le 
transfert des routines d'une disquette 
sur une autre. 


Programme BCOMP 
Assembleur BIG MAC 


1 + BCOMP 

2 * 

3 * CC) D. SUREAU 

4 * (C) 1983 POM’S 

5 

6 * 

7 COUT = $FDED 
8 MAXI = $000B 
9 GETLN = $FDéF 
10 LINPRT = $ED24 
11 PRNTAX = $F941 
12 PRBLNK = $F948 
13 PRBYTE = $FDDA 
14 STORADUV = $FBFO 
15 HOME = $FCS8 
16 TXTPTR = +00B8 
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# A 
C'est le même progromme . 


ONE { HAT AT 
[1 Wu 


Pour en revenir au vif du sujet, la 
routine charge les deux versions du 
programme à comparer à partir de 
l'adresse $1000 et compare chaque 
octet en se basant sur la longueur de 
la première version chargée. L'affi- 
chage des différences assure la 
conversion des adresses où elles se 
situent sur la base de l'adresse de 
départ normale du programme qui 
vous est demandée (en décimal posi- 
tif) en début de traitement. 

Le nombre de différences est indiqué 
en fin de comparaison et vous pou- 
vez renouveler cette dernière sans 
charger les programmes en tapant 
"CALL 2064”, 


Pour imprimer 
pouvez utiliser 
vante : 


les résultats. vous 
la procédure sui- 


17 INLIN2 
18 FRMEVL 
19 CRDO 
20 GETADR 
21 * 

22 CTRL 
23 CTRH 
24 ADRL 
25 ADRH 


34 INTRO LDA 


Denis Sureau 


Je œrats même plus : 


nm! A 
l'es le mème prigrsnne. 





e Exécuter une 
BCOMP 

e CAEL —-151 

e PR#s (où s désigne le slot de j'im- 
primante) 

e 8BDG 


Les commentaires du programme 
source précisent le but de chaque 
procédure. Les adresses $6-$7 et $8- 
$9 pointent respectivement sur la po- 
sition courante dans chaque version. 
Une routine unique permet le char- 
gement des deux versions en aiquil- 
lant sur chaque champ de stockage 
des noms réduits à 10 caractères en 
fonction du numéro de version 
donné par PRGNUM ($AIA). 

La taille des programmes comparés 
ne doit pas dépasser 16K. 


première fois 


$DS2E 
$DDé7 
$DAFB 
$E752 


+$0018 
$0019 
$001À 
$001B 


$800 


C00BO80A008C32 
303631000000 
INTRO 

START 

#FPROG 

175 


SHSERRNTAERNENTEE 











36 LDA  #)>FPROG 72 STA MAXI+1 


37 STA 176 73 
38 JSR $3EA 74 
39 JSR HOME 75 *x CHARG PROGR 2  - 
40 JSR ECRIT 76 K-———— — 
41 HEX  8D8D8D00 77 
42 LDA #5 78 CHARGEZ2 LDA #"2" 
43 STA $20 79 JSR  BLOADRTN 
44 JSR CRDO 80 
45 JSR TRAIT BA &——— 
46 JSR ECRIT 82 * LECTURE ADRESSE - 
47 INV “"BCOMP - D. SUREAU "“ 83 #2 
48 INV "(CC) 1983 ” 84 
49 HEX  8D00 85 JSR ECRIT 
50 JSR TRAIT 86 ASC "ADRESSE NORMALE :" 
51 LDA #0 87 BRK 
52 STA +20 88 
53 JSR  CRDO 89 *x ENTREE D'UN NOMBRE PAR INPUT 
54 90 * ET TRANSFERT EN $50-51 
SS 4 91 
5é *CHARG PROGR 1 - 92 JSR $FDéF 
57 93 TXA 
58 94 BEG  INNUL 
59 CHARGE  LDA #"1" 95 JSR +$D539 
60 JSR  BLOADRTN 96 LDS #0 
A 61 97 STA TXTPTR 
62 #-----—— 98 LDA #02 
: 63 * CALCUL FIN PROGR -— 99 STA TXTPTR+1 
64 100 JSR  FRMEVL 
5 65 101 JSR  GETADR 
66 CLE 102 LDA +$50 
67 LDA 43634 103 STA ADRL 
68 ADC 43616 104 LDA #51 
69 STA MAXI 105 STA  ADRH 
70 LDA 434635 i0é JSR CRDO 
71 ADC 43617 107 JMP START 











LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


TRANSMETTEZ-NOUS VOS TEXTES 
PAR TÉLÉPHONE A 


DONNEZ-NOUS VOTRE DISQUETTE 0 


Les textes de vos articles, catalogues, annuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 
poseuse. 


Nous vous évitons ainsi, le coût et le temps de la saisie supplé- 
mentaire que nécessite le traitement traditionnel de la photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 
vons également nous charger de l'impression et du brochage. 








ff PAC 


SE 
JE le 
NOTRE RÉFÉRENCE... LA REVUE POM'S ss , IV, 


PHOTOCOMPOSITION GESTION DE FICHIERS 
BUREAUTIQUE MATERIEL DE ER 
TRANSMISSION DE DOMNEES TRAITEMENT DE TEXTES ASE VINCENNES 














a _— 


: 
ARE 
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108 181 JSR PRBYTE 

109 x PAR DEFAUT L'ADRESSE EST #1000 182 LDA #24 

110 183 STA +24 

111 INNUL LDR #0 184 LDA ($8),Y 

112 STA  ADRL 185 JSR PRBYTE 

113 LDA H#$10 186 JSR CRDO 

114 STA  ADRH 187 

115 188 * DECOMPTE DES DIFFERENCES 

116 Km 189 

117 *% INITIALISATION — 190 INC CTRL 

LS Her ms ess Se 191 LDA CTRL 

119 192 BNE  INCCOMP 

120 START LDA HO 193 INC CTRH 

121 STA CTRL 194 E 
122 STA CTRH 195 * POSITION SUIVANTE Hs 
123 JSR ENTETE 196 ‘#4 
124 LD£A #0 197 INCCOMP INC $4 ! 
125 STA $é 198 INC 58 à 
126 STA $8 199 LDé $é F- | 
127 LDA #$10 200 BNE COMPARE HA 
128 STA #7 201 INC #7 Es 
129 LD  H$50 202 INC $9 ÉS 
130 STA $7 203 BNE COMPARE pr 
131 204 fn 
132 205 %=———— FE 
133 * COMPARAISON E 206 * RECAP - mn 
134 &————— 207 

135 208 

136 LDY #0 209 * AFFICHE LE NOMBRE DE 

137 COMPARE LDA #6 210 * DIFFERENCES TROUVEES 

138 CMP MAXI 211 

139 BNE  COMPAR2 212 RECAP JSR CRDO 

140 LDA +7 213 LDA +25 

141 CMP MAXI+1 214 CMP #21 

142 BCS RECAP 215 BCC RECAP2 

143 COMPAR2 LDA (#$6),Y 216 JSR APPUYEZ 

144 CMP ($8),Y 217 JSR HOME 

145 BEQG  INCCOMP 218 RECAP2  LDA CTRH 

idé 219 LDX CTRL 

147 * AFFICHE L'ADRESSE (NORMALE) 220 JSR LINPRT 

148 x OU UNE DIFFERENCE EST VUE 221 JSR ECRIT 

149 *x ET L’OCTET DANS LES DEUX 222 ASC " DIFFERENCE" 

150 x VERSIONS DU PROGRAMME 223 HEX 00 

151 224 

152 DIFFRIN LDA #25 225 LDA CTRH 

153 CMP #21 226 BNE PLURIEL 

154 BCC AFFDIF 227 LDA CTRL 

155 JSR  APPUYEZ 228 CMP  #H$02 

156 JSR ENTETE 229 BCC EXIT 

157 230 PLURIEL LDA #"S* 

158 x AFFICHAGE DE L’'ADRESSE 231 JSR COUT 

159 232 EXIT JMP  $3D0 

160 AFFDIF  LDA #"$" 233 

161 JSR COUT 234 

162 LDA ADRL 235 * ROUTINES DIVERSES- 

163 CLC 236 #——————— 

164 ADC $6 237 

165 TAX 238 ECRIT PLA 

1éé LDA  ADRH 239 STA +0 

167 ADC $7 240 PLA 

168 SEC 241 STA #1 

169 SBC ##10 242 LDY #00 

170 PHA 243 EC2 INC $0 

171 JSR  PRNTAX 244 BNE EC 

172 INC +24 245 INC #1 

173 PLA 246 EC3 LDA (#0) ,Y 

174 JSR LINPRT 247 BEQ EC4 

175 JSR  PRBLNK 248 JSR COUT 

176 249 JMP  EC2 

177 * AFFICHAGE DES OCTETS DIFFERENTS 250 EC4 LDA #1 

178 251 PHA 

179 LDY #0 252 LDA +0 

180 LDA (#$6),Y 253 PHA 
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254 RTS 314 INPBCL LDA $1FF,X 

255 315 STA NOM-I1,X 

256 *x EN-TETE 316 DEX 

257 317 BNE  INPBCL 

258 ENTETE JSR ECRIT 318 

259 ASC " ADRESSE ë 319 * EFFACEMENT DES ZONES RESERVEES 

260 NOMi HEX  ACAOADAGAO 320 * AUX NOMS DES 2 PROGRAMMES 

261 HEX  ACADADAUA0 321 

262 HEX A0 322 LDX  PRGNUM 

263 NOM2 HEX  ACADA0A0A0 323 LDY #10 

264 HEX  ACAGADAQAN 324 LDA  #$A0 

265 HEX  8D00 325 EFFBCL CPX #"2" 

266 LDA #"-" 326 BEQ EFFBCL2 

267 BNE TRAITI 327 STA NOMI-1,Y 

268 328 BNE  EFFBCL1 

269 329 EFFBCL2 STA NOM2-i,Y 

270 TRAIT LD£  ##$2D 330 EFFBCLI DEY 

271 TRAITI LDX #32 331 BNE EFFBCL 

272 TRAITBCL JSR COUT 332 

273 DEX 333 *x TRANSFERT DU NOM DU PROGR. 

274 BNE TRAITBCL 334 * DANS UNE DES 2 ZONES 

275 JMP.  CRDO 335 

276 336 LDY #0 

277 *% AFFICHE ‘’APPUYEZ SUR UNE 337 TRANBCL LD NOM,Y 

278 *x TOUCHE’ ET ATTEND GU’UNE TOUCHE 338 CPX #"2" 

279 *x SOIT PRESSEE 339 BEQ TRANBCL2 

280 340 STA NOMI,Y 

281 APPUYEZ JSR ECRIT 341 BNE  TRANS2 

282 HEX  8D 342 TRANBCL2 STA NOM2,Y 

283 ASC “APPUYEZ SUR UNE TOUCHE" 343 TRANS2 INY 

284 ASC *" POUR POURSUIVRE" 344 CPY #10 

285 HEX  8D00 345 BNE  TRANBCL 

286 BIT #$C010 346 

287 CLUBCL BIT +C000 347 * AFFICHE ‘BLOAD NOM-PROG ,ASXXXX 7 

288 BPL  CLUBCL 348 * PRECEDE DE CTRL-D ET OÙ XXXX 

289 BIT +$C010 349 * EST #$1000 OÙ $5000 

290 JMP HOME 350 

291 351 JSR ECRIT 

292 M 352 HEX  8D84 

293 * CHARGEMENT D'UN PROGRAMME — 353 ASC "BLOAD* 

BIA MS ES  e=Sme——— 354 NOM HEX  ADADADADAO 

295 355 HEX  ACAODACAGAQ 

276 BLOÂDRTN STA  PRGNUM 356 HEX  ADCADADACAO 

297 JSR ECRIT 357 HEX  ACADAGACAO 

298 ASC “NOM DU PROGRAMME 358 HEX  AOA0 

299 PRGNUM HEX 00 359 ASC ",A$" 

300 ASC " :" 360 HEX 00 

301 HEX 00 361 LDX  PRGNUM 

302 LDY #21 362 CPX #"2" 

303 LDA  ##A0 363 BEQ BLOAD4 

304 EFFACE STA NOM,Y 364 LDA ##$10 

305 DEY 365 BNE  BLOADS 

306 BPL  EFFÂCE 366 BLOAD4 LDA #$50 

307 367 BLOÂDS LDX #0 

308 *x ENTREE D'UN NOM DE PROGR. 368 JSR  PRNTAX 

309 369 JMP  CRDO 

310 JSR GETLN 370 

311 TXA 371 HEX 0000 

312 BNE  INPBCL 372 FPROG HEX 00 

313 JMP  $3D0 

Récapitulation 0838- 03 20 OF 20 0D 20 10 20 0880- C4 D2 CS D3 D3 CS A0 CE 
0840- 2D 20 04 2 20 13 15 12 0888- CF D2 CD C1 CC C5 BA 00 

0800- 00 0B 08 DA 00 8C 32 30 0848- 05 01 15 20 28 03 29 20 0890- 20 6F FD 8A FO 1F 20 39 

0808- 36 31 00 00 00 4C 13 08 0850- 31 39 38 33 20 8D 00 20 0898- DS A9 00 85 B8 A9 02 85 

0810- 4C BD 08 A9 A1 85 AF A9 0858- BC 09 A9 00 85 20 20 FB O8A0- B9 20 67 DD 20 52 E7 AS 

0818- 04 85 BO 20 EA 03 20 58 0860- DA A9 B1 20 03 0A 18 AD O8AB- 50 85 14 AS 51 83 1B 20 

0820- FC 20 73 09 8D 8) 8D 00 0868- 72 AA 6D 69 AA 85 0B AD G880- FB DA 4C BD 08 A7 60 85 

0828- 9 05 85 20 20 FB DA 20 0870- 73 AA 6D 61 AA 85 OC A9 0888- 14 A9 10 85 1B A9 00 85 

0830- BC 09 20 73 09 20 02 20 0878- B2 20 03 0A 20 73 09 C1 08C0- 18 85 19 20 92 09 A9 00 


PRES. 
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08C8- 85 06 85 08 A9 19 85 07 
08D0- A9 50 85 09 AO 00 A5 06 
08D8- C5 0B DO 0é AS 07 C5 0€ 
08E0- 80 5A Bi 06 Di 08 FO 44 
08E8- A5 25 C9 15 90 Dé 20 C? 
08F0- 09 20 92 09 A9 A4 20 ED 
08F8- FD AS IA 18 65 06 AA A5 
0900- 18 65 07 38 E9 10 48 20 
0908- 41 F9 E6 24 68 20 24 ED 
0910- 25 48 F9 AD 00 Bi 06 20 
0918- DA FD A9 18 85 24 BI 08 
0920- 20 DA FD 20 FB DA Eé 18 
0928- A5 18 DO 02 Eë 19 Eë Dé 
0930- Eë 08 A5 0é DO A0 Eë 07 
0938- E6 09 DO 94 20 FB DA A5 
0940- 25 C9 15 90 06 20 C? 09 
0948- 20 58 FC AS 19 A6 18 20 
0950- 24 ED 20 73 09 A0 C4 C9 
0958- Cé C6 C5 D2 C5 CE C3 CS 
0960- 00 A5 19 DO 06 AS 18 C9 


1. Le Disk Manager : le 
DOS en kit. 


Présentation : une documentation 
d'une cinquantaine de pages et une 
disquette. Prix: 450 FF TTC port 
compris. Disponibilité : début avril. 


Oeuvre de Dan Steevev, le Disk Ma- 
nager est un programme utilitaire qui 
permet de recréer les commandes 
d'un DOS ou de redéfinir l’organisa- 
tion d’une disquette, grâce à un jeu 
d'instructions qui en fait un langage 
simple d'accès au disque. 


Il contient en seconde part un pro- 
gramme, particulièrement simple 
d'emploi, d'accès aux secteurs du 
disque, et qui offre pourtant des 
commandes évoluées. 


Son but est de permettre la réalisa- 
tion en Basic de programmes faisant 
directement appel au disque, en 10% 
du temps nécessaire pour écrire les 
mêmes programmes en assembleur. 


Le Disk Manager comporte deux 
programmes en langage machine qui 
peuvent résider ensemble en mé- 
moire, mais sont chargeables séparé- 
ment : 


e le Disk Organizer Manager (DOM) 
contient toutes les instructions de 
commande disque en 2Ko. Il peut 
être utilisé en mode direct ou à 
partir d'un programme Basic. 

®e le Disk Editor (DE) est une 
commande additionnelle, fonction- 
nant en mode direct ou en sous- 
programme, qui permet de char- 
ger, visualiser, éditer et réécrire 
des secteurs individuellement. 


Utilitaires 


La disquette contient également qua- 
tre programmes utilitaires élaborés 
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0968- 02 90 05 A9 D3 20 ED FD 
0970- 4C DO 03 68 85 00 68 85 
0978- 0+ AD 00 Eé 00 DO 02 Eé 
0980- 01 B1 00 FO 06 20 ED FD 
0988- 4C 7B 09 A5 01 48 A5 00 
0990- 48 60 20 73 09 AO C1 C4 
0998- D2 C5 D3 D3 C5 AD A0 A0 
09A0- A0 AD AD AD AD AD AD AD 
09A8- AO AD AD AD AD AD AD A0 
09B0- AG AD AO AD AB AO 6D 00 
09B8- A9 AD DO 02 A9 2D 42 20 
09C0- 20 ED FD CA DO FA 4C FB 
09C8- DA 20 73 09 8D Ci DO D0 
0900- D5 D9 C5 DA A0 D3 DS D2 
09D8- AG DS CE C5 A0 D4 CF D5 
09E0- C3 CB C5 A0 DO CF DS D2 
09E8- A0 DO CF DS D2 D3 D5 C9 
09F0- Dé D2 C5 8D 00 2C 10 CD 
09F8- 2C 00 CO 10 FB 2C 10 CO 
0A00- 4C 58 FC 8D 1A DA 20 73 


0A08- 09 CE CF CD A0 C4 DS A0 
0A10- 00 D2 CF C7 D2 C1 CD CD 
0A18- C5 AD 00 AD BA 00 AD 15 
0A20- A9 A0 99 70 0A 88 10 FA 
0428- 20 6F FD 84 DO 03 4C DO 
0A30- 03 BD FF 01 9D 6F DA CA 
0A38- DO F7 AE 1A DA AD DA A9 
0A40- A0 E0 B2 FO 05 99 A0 09 
0A48- DO 03 99 AB 09 88 DO Fi 
0A50- AO 00 B9 70 DA EO B2 F0 
0A58- 05 99 A1 09 DO 03 99 AC 
GAéO- 09 CB CO OA DO EC 20 73 
0A68- 09 8D 84 C2 CC CF Ci C4 


0A70- AD A9 AG AD AD AD AD A0 
0478- AD AD A0 AD AD AD A0 A0 
0A80- AG AD AD AD AO AD AC Ci 
CA88- A4 00 AE 1A OA ED B2 F0 
0A90- 04 A9 10 DD 02 A9 50 A2 
0A98- 00 20 41 F9 4C FB DA 00 
CAAD- 00 00 


Deux produits nouveaux 
pour les lecteurs de Pom'’s 


avec ce langage d'accès au disque. 
L'analyse de ces utilitaires vous ai- 
dera à en maîtriser toutes les possibi- 
lités. 

UTILI-DISQUE réunit des utilitaires 
classiques ainsi que des utilitaires 
semblables à ceux du CP/M ou du 
MS-DOS : reconstruction de dlis- 
quette détruite, vérification, affichage 
de la carte d'occupation, … 


ULTRA-COPIE est la conversion en 
assembleur d'un algorithme de copie 
de disquettes mis au point en Basic 
(et présenté dans la documentation) : 
c'est un programme de “backup” de 
fichier très simple d'emploi et le plus 
rapide actuellement sür Apple Il (à 
notre connaissance). 


EDICAT offre le moyen d'éditer le 
catalogue d’une disquette afin d'en 
améliorer la présentation, de classer 
les programmes, d'ajouter des titres, 
un en-tête, … 


MULTI-DISQUE construit une base 
de données de tous vos program- 
mes : il suffit de placer une disquette 
dans le lecteur pour incorporer son 
catalogue au fichier. Une routine de 
tri inédite (à deux tableaux simulta- 
nés) réalise un classement instantané. 


NDLR - Le Disk Manager est à la 
fois un excellent outil et un moyen 
très efficace de comprendre le DOS 
et d'en utiliser toutes les ficelles à 
partir du Basic. Chacun peut alors se 
construire simplement des utilitaires 
personnalisés. 


2. DBSTAG - Utilitaires 
pour DBASE II. 


Présentation : une disquette CP/M 
comportant les programmes et une 
documentation détaillée imprimable. 
Prix : 450 FF TTC port compris. 


DBSTAG est un logiciel associé à 
DBASE II et écrit pour Apple Il avec 
carte Z80, pour fonctionnement sous 
CP/M et carte 80 colonnes et minus- 
cules à l'écran. Ce logiciel permet 
d'effectuer des calculs statistiques 
souvent utiles en gestion : moyenne 
et écart-type d’une série de valeurs, 
construction d’histogrammes, calculs 
de corrélation (covariance, coefficient 
de corrélation, le cas échéant ordon- 
née à l’origine et pente de la droite 
de régression), analyse en déciles et 
analyse de Pareto. Ce logiciel n'est 
pas destiné à des statisticiens, mais à 
des gestionnaires. 


Les résultats, fournis sous forme chif- 
frée, sont assortis de représentations 
semi-graphiques, en caractères impri- 
mables par toute imprimante 80 co- 
lonnes ou plus. 


DBSTAG peut exploiter, sans aucune 
transformation ou limitation, toute 
base de données construite sous 
DBASE II. Il peut être utilisé seul, ou 
comme sous-programme d’un pro- 
gramme écrit par l'utilisateur. Simple 
à comprendre et à apprendre, il est 
livré avec un exemple complet qui il- 
lustre parfaitement ses possibilités. 
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L’obtention de l’extremum absolu 
des fonctions à plusieurs variables 


À. Guillez et Y. Cherruault 


But et principes 


Le problème traité dans cet article est 
très important en informatique scien- 
tifique et technique, en recherche 
opérationnelle et en comptabilité pré- 
visionnelle. 

Devoir identifier des fonctions dont 
on connaît la forme mathématique, 
mais pas les coefficients, et employer 
pour cela un algorithme de minimum 
ou de maximum, est une tâche cou- 
rante dans tout bureau d'étude. En 
outre, les méthodes de minimisation 
sont d'usage pour résoudre les systè- 
mes différentiels et aux dérivées par- 
tielles (Ritz et Rayleigh). 


Tous les procédés existants pour les 
fonctions de plusieurs variables sont 
bons, mais tous calculent des minima 
ou des maxima locaux. Ils sont 
fondés sur l'hypothèse de l'unicité de 
l’'extremum au voisinage des valeurs 
initiales injectées dans le calcul. 

On s'efforce, en informatique scienti- 
fique, de démontrer cette unicité et, 
lorsqu'on n'y parvient pas, de définir 
les conditions, les intervalles où elle 
existe pour s’y placer. C'est générale- 
ment un travail difficile, long et péni- 
ble. De plus, cette étude préalable 
garantit qu'il existe un extremum 
dans certains intervalles, mais non 
que ce sera l’extremum absolu. 


Il existe des méthodes probabilistes 
de recherche des extrema absolus 
mais, par nature, elles peuvent seule- 
ment garantir que le point trouvé fi- 
nalement est bien le minimum ou le 
maximum absolu avec une certaine 
probabilité, par exemple de 95 %. 
Elles ne donnent pas de certitude. 


Dans les problèmes pratiques utilisant 
des méthodes de minimisation / 
maximisation, seul l’extremum absolu 
peut fournir le meilleur résultat, la 
meilleure approximation, d'où le 
grand intérêt d'une méthode déter- 
ministe d'obtention de cette valeur. 
Cet intérêt suppose toutefois que la 
méthode retenue ne consomme pas 
trop de temps-machine; celui-ci doit 
rester comparable avec le temps total 
nécessaire à l'obtention d’un bon ex- 
tremum par les méthodes habituelles 
(durée de l'étude préalable donnant 
les conditions d'existence et d’unicité, 
plus durée de rédaction et de frappe 
du programme, plus temps d'exécu- 
tion proprement dit). 


On sait parfaitement, et depuis long- 
temps, 


trouver l'extremum absolu 





d'une fonction d'une seule variable, 
ÿ compris quand cette fonction n'est 
pas exprimable mathématiquement, 
quand il s’agit d’une sous-routine (on 
utilise dans ce cas des procédés de 
parcours et discrétisation). 

Les auteurs ont donc imaginé une 
transformation mathématique qui ra- 
mène toute fonction de plusieurs va- 
riables à une fonction d'une seule 
variable avec l'approximation voulue 
et, en pratique, avec une excellente 
approximation. 

Cette transformation est baptisée 
Aliénor. 

Le principe fondamental d'Aliénor 
est une propriété particulière aux spi- 
rales d'Archimède (voir figure 1). La 
courbe, d'équation polaire R=T:C, 
passe à la distance maximum 27 /C 
de tout point M du plan, cette dis- 
tance étant mesurée sur le rayon 
vecteur et T étant positif. 

Si le signe de T est quelconque, on 
obtient la spirale double de la figure 
2a, qui passe à la distance maximum 
r/C de tout point du plan. Les spira- 
les d'Archimède passent par l’origine 
et leurs équations cartésiennes para- 
métriques sont : 


e X1 = TxCOS(T}C 
© X2 = TaxSIN(T}C 


On peut donc déjà, par la transfor- 
mation ci-dessus (baptisons-la I}, ra- 
mener toute fonction de deux varia- 
bles à une fonction de la seule 
variable T avec l'approximation que 
lon veut, c'est-à-dire définir une 
courbe qui passera à une distance 
maximum fixée de tout point de la 
surface représentée par la fonction 
de deux variables, sous la seule 
condition que cette fonction soit 
continue. 


Plus précisément, soit Z=f(X1,X2) la 
fonction examinée: elle représente 
une surface. Soient Y1 et Y2 les 
images de X1 et X2 par la transfor- 
mation (I), c'est-à-dire le point de la 
spirale d'Archimède d'équation (I) 
qui est le plus proche de X1-X2. Si 
la fonction f(X1.X2) est continue, 
f(Y1,Y2) sera une bonne approxima- 
tion de f(X1,X2), et même d'autant 
meilleure que Y1-Y2 sera plus près 
de X1-X2. 

Or : 

e la distance ((X1—-VY1)"2) + 
((X2—Y2)"2) est bornée et reste 
inférieure à ((27 /C) 2) 

® en tout extremum à dérivées par- 


tielles nulles, la fonction examinée 
est continue 


Le minimum ou le maximum absolus 
de l’image Z=f(Y1.Y2) seront donc 
des valeurs approchées des extrema 
absolus de l'original Z=f(X1,X2). 


En général, si l'on peut définir un 
parcours suffisamment dense de l'es- 
pace des variables, la transformation 
définie par les équations de ce par- 
cours fournira une valeur approchée 
des extrema de la fonction examinée. 
Il n'est pas difficile de densifier le 
parcours d'Archimède du plan, ce 
qui permet de limiter le paramètre C 
et le pas d'exploration. Il suffit pour 
cela de connaître les bornes inférieu- 
res et supérieures des variables qu'on 
cherche. 

En pratique, cette condition est tou- 
jours remplie. Elle peut nécessiter 
une étude préalable du phénomène 
traité, mais cette étude est de toute 
façon indispensable et profitable. 


Généralisation 


La figure 2 représente une transfor- 
mation Aliénor à 4 variables et la fi- 
gure 3 une transformation à 8 varia- 
bles. Ces figures montrent comment 
on généralise à un nombre quelcon- 
que N de variables. La transforma- 
tion a une structure d'arbre. 

Ainsi, la perte d'information reste 
bornée et, d'autre part, il est facile 
d'établir un programme de test qui 
calculera la distance réduite maxi- 
mum à laquelle le parcours passe de 
tout point M de l'espace à N dimen- 
sions en fonction de ses paramètres 
(diviseur C, valeur maximum TM de 
la variable T d'Aliénor, pas d’explo- 
ration P et, on le verra un peu plus 
loin, facteur de densification K). 


Pour N variables transformées, le 
nombre de niveaux S est la partie 
entière par excès du logarithme base 


2 de N. Il est donc agréablement 
borné : 

e N=2:S=1 

e N=3 ou 4: S=2 

e N=5, 6, 7 ou 8: S=3 


L'informatique est une science expé- 

rimentale et l'expérience nous a 

appris que : 

e Une bonne valeur de TM est 
(C S). 

e 0,2 est toujours une bonne valeur 
de pas. 

e 2 et 3 sont toujours de bonnes va- 
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leurs du facteur de densification K. 

e De bonnes valeurs du diviseur C 
sont : 25 pour 2 variables transfor- 
mées, 7 pour 3 ou 4. 6 pour 5 à 
8. 


En pratique, les micro-ordinateurs ac- 
tuels ne peuvent aller au-delà de 16 
variables, car le nombre de pas, et 
donc le temps de calcul, deviennent 
ensuite prohibitifs. En effet, 6 4 = 
1296 et 1296/0,2 = 6480 pas pour 
16 variables transformées, soit autant 
d'exécution des calculs, ce qui repré- 
sente facilement toute une nuit. 


Densification. Obtention 
du minimum absolu de 
l’image 


L'expérience a appris que la meil- 

leure technique de densification, la 

plus rapide, employait la fonction 

INT. 

Soient m et M les bornes inférieures 

et supérieures de la variable X, et 

Y={{T) la transformée archimédienne 

de X, le principe de la densification 

est : 

e Si O<Y<1: XA = m + 
(M-m)*xY 

e Autrement: XA = m + (M-—m) * 
(KxY — INT(KxY)) 


XA est l'image de X par Aliénor. 


La figure 4 montre l'obtention du mi- 
nimum absolu de l'image. On prend 
d'abord un minimum au hasard MR. 
puis on progresse sur le parcours à 
partir de T=0 en cherchant des mi- 
nima successifs à des cotes de plus 
en plus basses. Le plus petit mini- 
mum trouvé est l'approximation 
cherchée du minimum absolu de la 
fonction originale de N variables. 


Le pas initial dans la sous-routine de 
minimisation sera 0,1. Il devra être 
diminué jusqu'à 0,002, ce qui fait 7 
passes au facteur de réduction 0,55. 
Ce dernier est généralement 
conseillé. 

Ensuite, on obtiendra le minimum 
absolu de l'original par une sous-rou- 
tine de variations locales, qui n'aura 
que peu d'itérations à faire. 


Formules de transforma- 
tion 


1) Pour 3 variables : 
e Ti=TxCOS(T)/7 
e T2=T*SIN(T)/7 et 
e XI1=TIxCOS(T1)/7 
e X2=T2xCOS(T2)/7 
e X3=T2xSIN(T2)7 


2) Pour 4 variables : 


e T1, T2, X1, X2 et X3 comme ci- 
dessus 
e X4=TIx*xSIN(T1)/7 


3) Pour 5 variables : 
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T1=T4xCOS(T)/6 
T2=T4SIN(T)/6 
T3=T1xCOS(T1)/6 
T4=TI4xSIN(T1)/6 
T5=T2xCOS(T2)/6 
X1=T3*COS(T3)/6 
X2=T3+:SIN(T3)/6 
X3=T44COS(T4)/6 
X4=T4xSIN(T4)/6 
X5=T5xCOS(T5)/6 


4) Pour 6 variables, 
X6=T54SIN(T5)/6 


5) Pour 7 variables, ajouter 
T6=T2xSIN(T2)/6 et 
X7=T6*COS(T6)/6 


6) Pour 8 variables, 
X8=T6*SIN(T6)/6 


ajouter 


ajouter 


Exemple de programme 


Le programme ci-joint identifie un 
développement exponentiel à 4 
termes, qui simule l’une des fonc- 
tions d’un système compartimental et 
est censé représenter une concentra- 
tion. 


Le programme principal commence 
par la fabrication du problème {lignes 
2 à 32}. On donne en ligne 6 les 
dates T{I) des mesures. On prend en 
ligne 10, au hasard, les exposants 
L(I) de façon vraisemblable, puis de 
même en ligne 12 les coefficients 
A(l). Les lignes 14 à 24 constituent la 
boucle de calcul des valeurs des 
concentrations C{I} pour les T{I). Ces 
valeurs sont astreintes par la ligne 22 
à être toutes positives, puis subissent 
une perturbation aléatoire de plus ou 
moins 0,05+RND(8) pour être ren- 
dues vraisemblables. 

Sous-routine 400 :transformation 
Aliénor. 


Lignes 420 à 500 :calcul des expo- 
sants et des coefficients, calcul des 
valeurs calculées” CCI) de la 
concentration, calcul de la fonction à 
minimiser DE qui est 100 fois l'erreur 
type des moindres carrés de CCI) 
exprimée avec 5 décimales. Par souci 
de réalisme, C{(I} et CC{I) sont expri- 
més avec 3 décimales. 


Sous-routine 300 :obtention des 
minima locaux d'Aliénor, la sous-rou- 
tine 200 donnant le minimum absolu 
de la fonction DE des 8 variables L(I) 
et AI). 


Lignes 34 à 42 :obtention au ha- 
sard du point le plus bas parmi 15 
(DA, TA), puis, via 300, du mini- 
mum correspondant (DR, TR). 


Lignes 44 à 58 :exécution de la fi- 
gure 4. les minima d'Aliénor succes- 
sifs, de plus en plus bas, sont appelés 
DZ-TZ. Le dernier trouvé est le plus 
petit et donc le minimum absolu 


d'Aliénor; on l'appelle DL et les va- 
leurs correspondantes des L{I) et A(I) 
sont dites LL(I) et AL{I). 


Ligne 60 :prévoit un aléa : le mini- 
mum absolu d’Aliénor peut-être DR. 
De même, la ligne 56 prévoit que la 
vallée à pu être trouvée en TA-DA 
par l'aval. 


Ligne 62 :appeler 300 au lieu de 
400 ne peut qu'améliorer le résultat. 
Les résultats d'Aliénor sont imprimés 
aux lignes 68 à 82. 


La ligne 86 appelle 200 pour les ré- 
sultats définitifs qui sont DM (100 
fois l'erreur type), les exposants L{I), 
les coefficients Al) et les ‘valeurs 
calculées” CC{I). Ces résultats sont 
imprimés aux lignes 88 à 100. 


La sous-routine 400 comprend les 
expressions des L{I} à l’aide de la va- 
riable T d’Aliénor {lignes 400 à 418), 
les initialisations (420 à 426), le cal- 
cul des matrices primitives des moin- 
dres carrés MC{IJ) et CM(I.J) et des 
matrices principales M{LK) et V{I) 
(lignes 434 à 446), le calcul des A(I) 
par la méthode de Gauss (lignes 448 
à 486), et enfin le calcul des CCI) 
puis de DE (lignes 488 à 499). 


La sous-routine de minima d’Aliénor 
(300 à 332) est du type ”’à balance- 
ment”, minimisation quadratique, tri 
et reprise avec réduction du pas. Le 
pas initial est défini en 300 : c’est le 
pas d'exploration (0,2) multiplié par 
DA/100 pour qu'il y ait très peu de 
reprises. Rappelons en effet que la 
première valeur de DA est le plus 
petit des 15 nombres DE pris au ha- 
sard et que les valeurs suivantes sont 
toutes inférieures à DR, et de plus en 
plus petites. On se procure d'abord 5 
valeurs encadrantes, les X et les Y, 
on sort la plus petite (lignes 316 à 
322), et on reprend avec elle et un 
pas réduit. Les Ÿ sont les DE et les X 
sont les angles. Le résultat final est 
baptisé TM-DM. 


La sous-routine 200 est organisée de 
la même façon et agit sur les 4 expo- 
sants, qui V prennent les appellations 
Y, les DE correspondants étant appe- 
lés X 


. résultats d'Aliénor sont excel- 
l’'approximation trouvée 
4 28515 %) est inférieure au quan- 
tum de la perturbation aléatoire (5 
%). Il ne faut pas croire que c’est 
une exception : c'est la règle. Tous 
ceux qui utiliseront ce programme 
sur leur Apple pourront s’en convain- 
cre. 
Les résultats définitifs sont encore un 
peu meilleurs, mais à peine. Pour- 
tant, la sous-routine 200 procure une 
modification significative des expo- 
sants L(I}) et des coefficients A(I). 
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Structure d arbre Obtention du minimum absolu de l'image. 
Programme ALIENOR 4 DIM LX(3),PC3),X(5),Y(5),G(3) 
6 DATA .5,1,2,4,6,8,11,15,18,21,2 
1 REM xx ALIENOR xx 4,30 


8 FOR I = 0 TO ii: READ T{(I): NEXT 

2 DIM T(112,C(11),CCC11),MC(11,3) 
, CM(3, 11) ,M(3,3) ,VG3), LC3),LL 10 LCO) = .30 *% RND (13:LC13 =  RND 
(3) ,A(3) ,ALC3) C1D:LC2) = LC12 + C1 - L(1)) + 
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RND (1)2:L€3) = 


4 + 2 *x  RND 
(1) ; 


12 ACO) = 2 + 4 x RND (1):8(C1) = 
— 2 —- 2 %# RND (12:42) = .5 
— 5 * RND (1):4€3) = 3 + 5 * 
RND (1) 

14 1 = O:CCI1) = 0 

16 J = 0:SI = INT € RND (1) * 100 
) 

18 CCI) = CCI) + EXP € - T{I) x L 
CJ)) * ACJ) 

20 IF J < = 2 THEN J = J + 1: GOTO 
18 

22 IF CCI) < = 0 THEN 12 

23 CCI) = CCI) % C1 + .05 x RND € 
1) # ( — 13 * SI):CCI) = .001 


*%x INT (CCI) * 1000 + .5) 


24 IF 1 < = 10 THEN I = I + 1: GOTO 

. 16 

25 PRINT CHR$ (4)"PRH#1" 

27 PRINT *DONNEES" 

28 FOR 1 = 0 TO 11 STEP 3 

279 PRINT "C<"I")="C(I)" CC"I + 
1")="CCI + 1)" C<C"I + 2") 
="C(I + 2) 

30 NEXT 1 

31 PRINT "#33 3626 ERREUR EEE KE 


ÉLLLLI LD 
32 PRINT CHR$ (4) *"PR#0O" 


34 T = 50 * RND (1): GOSUB 400:Dfñ 
= DE; TA =T 

36 FOR II = O0 TO 15:T = 50 *x  RND 
(13: GOSUB 400:DI = DE 

38 IF DI < = (DA) THEN DA = DI:T 
A=T 

40 NEXT II 

42 GOSUB 300:DR = DM:TR = TM: PRINT 
"DR="DR 

44 TZ = 0:D2Z = DR 

46 QG = 0 

48 T = TZ + .2 *x Q: GOSUB 400:DA = 
DE:TA = T 

950 IF T > = 50 THEN 60 

52 IF DA > DZ THEN Q = Q + 1: GOTO 
48 

94. GOSUB 300:DZ = DM:T2 = TM:TC = 
TM 

56 IF TZ < = (TA + .2) THEN TZ = 
TA + .2 


58 GOTO 46 
60 IF TZ = 0 THEN TC = TR 
62 TA = TC:DA = DZ: GOSUB 300:DL 


DM 
64 PRINT CHR$ (4)"PR#H1" 
68 PRINT “RESULTATS D’ALIENOR" 


70 FOR 11 = O0 TO 3:LL(II) = 
sALCIID = ACII) 


LC11) 


72 PRINT "LLC"II")="LLCII)" À 
LC"II1")="AL(CII) 

74 NEXT II 

75 FOR M = 0 TO 11 STEP 3 

76 PRINT "CCC*M")="CC(M)" CC< 
"M + 1")="CC(CM + 1)" Ccc<" 


M + 2")="CC(M + 2) 


77 NEXT M 
78 PRINT "DL=*DL 
80 PRINT "X#X#K#XXXXXXXEXEREREXERXX 
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xxx" 

PRINT, CHR$ (4) "PR#0" 
GOSUB 200 

PRINT CHR$ (4)"PR#1" 


PRINT "RESULTATS DEFINITIFS"® 

PRINT *DM="*DM 

FOR II = O0 TQ 3: PRINT “LC"II" 
="LCII)" AC"II1")="ACII): 
NEXT II 

FOR II = O0 TO 11 STEP 3 

PRINT "CCC“II1")="CCKII)" C 


CC"II + 1")="CCCII + 1)" 

CCC"II + 2")="CCCII + 2) 
NEXT II 

PRINT CHR$ (4) "PRHO" 


O:DX = DL 
TO 3:LX(12) = 
LLÇI2) x DL / 


LL(I 
2):P(12) = 100: 
NEXT 12 
FOR 12 = 0 
:X(0) = DX 
Y{1 = YO) + PCI2):L(I2) = Y< 
1): GOSUB 420:X(1) = DE 
IF XC12 < XCO0O) THEN Y(O) = Y< 
1):XC02 = XC1): GOTO 206 

Y(25 = Y(O):X(2) = X(0) 

Y(3) = YC2) - PCI2):LC12) = Y< 
3): GOSUB 420:X(3) = DE 
IF X(3) < XC2) THEN Y(2) = Y( 


TO 3:Y(0) = LXCI2) 





3):XC2) = X(3): GOTO 212 
Y(4) = Y(O) + PCI2) x X(0) / € 
XCO) + XC122:LCI12) = Y(4): GOSUE 
420:xX(4) = DE 
Y(S) = Y(2) - PCI2) #*x X(2) / { 
XC2) + XC3)):LCI2) = Y(5): GOSUB 
420:X(5) = DE 
DX = X(D):LXCI2) = Y(C0O) 

FOR J2 = i TO S 

IF XCJ2) < = X(0) THEN DX = 
XCJ2):LXCI12) = Y(J2) 

NEXT J2 

NEXT 12 

IF €.55 * RG) < = .01 THEN 2 

36 

FOR 12 = QG TO 3:PÇIZ) = .55 * 
PCI2): NEXT 12 
RG = RG + i: GOTO 204 


LCO) = LX(O):LC1) = LX(1):LC2) 
= LXC2):LC3) = LX(3) 
GOSUB 420 :DM = DE 


RETURN 

P = DA *x .002:X(0) = TA:Y(O) = 
DÉ:RF = 0 

XC1 = XCO) + P:T = X(1)2: GOSUB 


400:YC1) = DE 


IF YC1) € = CYC0) - 1E — S) THEN 
X(0) = XC12:YC0) = YC1)2: GOTO 
302 
XC2) = X(0):Y(2) = YO) 
XC3) = XC2) - P:T = X(3)3: GOSUB 
400:Y(3) = DE 
IF Y(3) < = (Y(2) —- 1E -— S) THEN 
XC2) = X(3):Y(C2) = Y(3): GOTO 
308 
X(4) = XCO) + P x YO) / CYCO) 
+ YC1)2:T = X(4): GOSUB 400: 


CITE LE are re ee ecre0 6e Sn 63 LE EST: 
SR 
43 


(ELLE LEE PERRET RNITEEE 


314 


Y(4) = DE 
X(S5) = X(2) - P *x Y(2) / CYC3) 
+ YC2))2:T = X(5): GOSUB 400: 
Y{S) = DE 
TM = X(0):DM = Y(0) 
FOR 11 = 1 TO S 
IF YCI1) < Y(O) THEN TM = X(I 
12:DM = Y(I1) 
NEXT 11 
IF P < = ,.002 THEN 330 
XCO) = TM:Y(O) = DM:P = ,.55 * 
P 
RF = RF + 1: GOTO 302 
T = TM: GOSUB 400 
RETURN 
TO = T x COS (T) / 7:T1 = T * 
SIN CT) / 7 
T2 = TO x COS (TO) / 7:T3 


T 


O0 * SIN (TO) / 7:T4 = Ti x COS 


CT13 / 7:TS5 = Ti # SIN (T1) / 
7 


IF T2 > = 0 AND T2 < = .3 THEN 


L(O) = T2: GOTO 408 
LCO) = T2 - .3 * INT (3.3333 * 
T2) 


IF T3 > = 0 AND T3 < = .333 
4 THEN L(1) = 3 x T3: GOTO 41 
2 
LE1) = 3 x T3 - INT (3 *x T3) 
IF T4 > = 0 AND T4 < = .333 
4 THEN LK2) = LC) + C1 - Li 
2) * 3 x T4: GOTO 416 
LC2) = LC1 + C1 —- LC13) x (3 x 


T4 — INT {3 x T4)) 

IF TS > = 0 AND T5 < = .333 
4 THEN L(3) = 6 *x T5 + 4: GOTO 
420 
LC3) = 4 + 6 x T5 - 2 x INT « 
3 *x T5) 
DE = 0:SE = 0 


FOR I = 0 TO 3:V(CI) = O:MCI,0 
>) = O:MCI,1) = O:MC1,2) = O:M 
(1,3) = 0 
LCI) = ABS (L(IDD:LCI)D = INT 
(LCI) *% 1E4 + .5) * 1E - 4 
NEXT 1 
FOR I = O0 TO 11: FOR J = 0 TO 
x | 
E = EXP € - TCI) »* L(J)):MC(I 


,J) = E:CM(J,I1) = E 
NEXT J,1I 
FOR I = 0 TO 3: FOR J = 0 TO 


UCID = UCI) + CMCI,J) * CCJ) 
FOR K = 0 TO 3:M(I,K) = MCI,K 
> + CMCI,J) * MCCJ,K): NEXT K 


NEXT J,I 
FOR H = 3 TO 1 STEP - 1: FOR 
I =H-1 TO 0 STEP -1 

IF MCH,H) < > 0 THEN 470 

FOR L = H - 1 TO O STEP -1 


IF MCL,H) < > O0 THEN 460 
NEXT L 
DE = 10000: GOTO 500 

REM ALIENOR 

FOR W = 0 TO 3 


RES EE A SATA MEET EL GE 
ASRRESRERRNENEE 


464 GCUW) = MCL,W):MCL,W) = MCH,W) : 
MCH,W) = G(W) 

466 NEXT W 

468 V1 = VCLD:UCL) = VCH):UCH) = VU 
1 

470 UCI) = UCI) - MCI,H) # UCH) / 
MCH,H) 

472 FOR J = 0 TO H 

474 MCI,J) = MCI,J) - MCI,H) #% MCH 
,J) / MCH,H) 

476 NEXT J,1,H 

478 A(0O) = U(O) / MCO,0) 


479 A(C0O) INT CACO) *x 1E4 + .5) * 
1E - 4 
480 FOR 1 TO 3:S = 0 


I = 
482 FOR K = Q TO I - 1:S = S + M( 
1,K) # ACK): NEXT K 


484 ACID = CUCI)D —- S) / MCI,1) 
485 ACID = INT CACI) x 1E4 + .5) + 
1E —- 4 


488 FOR I = Q TO 11:CC(I1) = 0 


490 FOR J 0O TO 3:CCCI1) = CCI) + 
ACJ) x MC(CI,J): NEXT J 

492 CCCI) = INT (CCI) *x 1000 + . 
5) * .aoi 


494 SE = SE + ABS (CCCI)):DE = DE 
+ CCCCI) — C(I2) * 2 

496 NEXT I 

498 DE = 100 *x SQR (12 *x DE) / SE 


499 DE = INT (DE *% 1E5 + .5) * 1E 
= 
300 RETURN 





1 REM xx PROGRAMME DE TEST xx 
CALIENOR) 


2 INPUT C:TM = C ° 2 + 1 

4 DIM DL(20):CR = 0 

6 L(O) = .3 x RND (1)2:LC1) =  RND 
C13:LC2) = LC1 + <1 —- LC1)) * 
RND C13:LC3) = 4 + 2 >%x  RND 
(1) 

8 TA = TM * RND (1):T = TÂ: GOSUB 
400:DÂ = DE 

10 FOR II = O0 TO 15:T TM *%  RND 
(12: GOSUB 400:DI DE 

12 IF DI < (DA) THEN TA = T:DA = 
DE 

14 NEXT II 

16 GOSUB 309:DR = DL:TR = TL: PRINT 
“DR="DR 

18 DZ = DR:TZ = 0 

20 QG = 0 

22 TA = TZ + .2 x G:T = TA: GOSUB 
400:DÂ = DE 

24 IF T > = TM THEN 34 

26 IF DA > DZ THEN QG = Q + 1: GOTO 


Wi 


22 

28 GOSUB 300:D2 = DL:TZ = TL:TC = 
TE 

30 IF TZ < = (TA + .2) THEN TZ = 
TA + .2 
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32 GOTO 20 318 FOR Ii = 1 TOS5 
34 IF TZ = 0 THEN TC = TR 320 IF Y(I1) < Y(O) THEN TL = X(I 
36 TA = TC:DA = DZ: GOSUB 300:DL(C 1):DL = Y{I1) 
R) = DL: PRINT “DLC"CR")="DLX 322 NEXT 11 
CR) 324 IF P < = .002 THEN 330 
38 IF CR > = 20 THEN 42 326 X(0) = TL:Y(O) = DL:P = .55 * 
40 CR = CR + 1: GOTO é P 
42 DS = DL(O):DI = DL(O):DL = DL(O 328 RF = RF + i: GOTO 302 
>) * 2 330 T = TL: GOSUB 400 
44 FOR J = 1 TO 20 332 RETURN 
46 IF DL(J) > DL(O) THEN DS = DL 400 TO = T x COS CT) / C:TI1 = T * 
J) SIN (T) / C à 
48 IF DL(J) < DL(O) THEN DI = DL 402 T2 = TO *x COS (TO) / C:IT3 = T Et] 
J) O0 *x SIN (TO) / C:T4 = Ti *x COS 5 
50 DL = DL + DL(J> “ 2 (T1) / C:TS = Ti *x SIN (T1) / ue 
52 NEXT J C el 
54 DL = SGR (DL / 21) 404 IF T2 > = 0 AND T2 4 = .3 THEN LE 
56 PRINT CHR$ (4)"PR#1" MO) = T2: GOTO 408 es 
60 PRINT "RESULTATS DU TEST" 406 MCO) = T2 - .3 *x INT (3.3333 * se 
62 PRINT "DL="DL'7 DS="*DS"%# T2) 4 
DI="DI"Z C="C 408 IF T3 > = 0 AND T3 « = .233 #3 
64 PRINT CHR$ (4)"PR#0" 4 THEN M(1) = 3 x T3: GOTO 41 LE 
70 END 2 sa 
300 P = DA *x .002:X(0) = TA:Y(0) = 410 MC1) = 3 x T3 —- INT (3 *x T3) ET 
DA:RF = 0 412 IF T4 > = 0 AND T4 « = .333 
302 X(1) = XC0O) + P:T = X(1): GOSUB 4 THEN MC2) = MC1) + Ci - MGi 


400:Y(1) = DE 2) *# 3 x T4: GOTO 4ié 
304 IF Y{1) < = (Y(D) - 1E - 5) THEN| 414 M{2) = MG1) + C1 — MC12) x (3 *% 
X(0) = XC1)3:Y(0) = Y{1): GOTO T4 —- INT €<3 x T4)) 
302 | 416 IF TS > = Q AND TS { = .333 
306 XC2) = X(D)D:Y{2) = YO) 4 THEN M(3) = 6 *x T5 + 4: GOTO 
308 X(3) = X(2) - P:T = X(3): GOSUB 420 
400:Y(3) = DE 418 M(3) = 4 + 6 x TS - 2 x INT « 
310 IF YC3) < = (Y(2) - 1E - 5) THEN 3 *x T5) 
XC2) = X(3):Y(2) = Y(3): GOTO 420 DE = 0Q:SE = 
308 422 FOR I = O0 TO 3:SE = SE + MI) 
312 X(4) = XC0) + P x YO) / (Y(O) DE = DE + (MOI) - LéI)) * 2: 
+ Y(1)):T = X(4): GOSUB 400: NEXT I 
Y{4) = DE 424 DE = 200 * SGR (DE) / SE 
314 X{5) = X(C2) - P x Y(2) / CY(C3) 426 DE = 1E - 5 x INT CDE * 1ES + 
+ YC2)):T = X(5): GOSUB 400: .3) 
Y{5) = DE 430 RETURN 


316 TL = X(0):DL = Y(0) 





Il s'agit d'une UNIT avec une fonc- 
tion principale renvoyant un carac- 
tère pris dans un menu. L'affichage 
se fait horizontalement ou verticale- 
ment, le choix se fait soit en tapant la 
première lettre de l'option, soit en 
positionnant la zone inversée avec les 
flèches et en faisant RETURN. 


Cette UNIT utilise elle-même l'UNIT 
LIB contenant PINFO et PCHAR (cf 
numéros précédents). 


L'utilisation se fait par exemple en 


déclarant : 
VAR M : TABMEN;: 
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Un menu à la carte 


puis dans le programme : 
PROCEDURE INITM(VAR 
M1:TABMEN): 

BEGIN 

ZEROMENU(MI1): 

M1!O!:= ‘TITRE’: M1!1!:= 
M1!2! := ‘Changer: 

etc. 

END 


Le programme principal commencera 
par INITM(M); on utilisera la fonction 
par : 

CASE MENU(F.M) OF 

’L': LIRE: 

C': CHANGER; 


Lire’: 


Michel Crimont 


La présentation à l'écran dépend du 
paramètre F : 


Si F=0, seule la ligne d'affichage est 
effacée: sinon, tout l'écran est effacé 
avant affichage. 

Si F<=0, il y a affichage du menu 
sur une ligne. 

Si F>0, il y a affichage vertical, le 
chiffre F représentant l'espacement 
entre les lignes. F=1: toutes les 
lignes. F=2 : toutes les deux lignes … 
À noter que la ligne O du tableau sert 
de titre au menu et n'est pas utilisée 
comme option. 


> 


|” 
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CKHHS+Xx) 
UNIT GETMENU; 
INTERFACE 
USES LIB;Cx Pour PCOM=PRENCAR sans affichage, et PRINFO avec HT:=CHR(21) ; 
INV :=CHRC15) 3 NORM:=CHRÇ 14) ;LF:=CHRC10) ;VT:= CHR(11) pour APPLE Ilex) 
TYPE TABMEN = PACKED ARRAYI0..10] OF STRINGI20]1;(%xLa ligne 0 sert au titrage *) 
FUNCTION MENU(F:INTEGER; VAR M : TABMEN) : CHAR; 
PROCEDURE ZEROMENUCUAR M : TABMEN) ; 
IMPLEMENTAT I ON 
FUNCTION MENU; 
VAR NUMOPTION,I,MAXOP ,MX:INTEGER; OPTION:CHAR; TOTCOM,DIR:SET OF CHAR; 


PROCEDURE PRINTLIGNEXI : INTEGER;S:STRING; GR : CHAR) ; 
BEGIN 
IF F <=0 THEN 
BEGIN 
GOTOXY(1#13,0) ;WRITECGR,’ ’,S111,/(C’,COPY(CS,2,LENGTH(S)-1),°,°) 
END ELSE 
BEGIN 
GOTOXY(20,2+F*xI1):;WRITECGR,” ‘,SL11,° - ’,S);: 
END ; 
WRITECNORM) ; 
END ; 


BEGIN 
TOTCOM:=LCESCJ; NUMOPTION:=1; MAXOP:=0; GOTOXY(O,0);: 
IF F<>0 THEN WRITECEFE) ELSE WRITEK(EFL) ; 
IF F>0 THEN GOTOXY((79-LENGTH(MIOJ)) DIV 2,0); WRITECMIO]); 
IF F>30 THEN BEGIN DIR:=[CCR,LF,VT]3;MX:=10 END 
ELSE BEGIN DIR:=[ICR,BS,HTI1;MX:=5 END; (% touches de direction*x) 
FOR I:=i TO MX DO 
IF MI11<>’° THEN 
BEGIN 
MAX OP : =MAXOP+1 ; PRINTLIGNECI ,MCI1,NORM) ; TOTCOM:=TOTCOM+(IMII,11]; 
(*totcom contient les premitres lettres des options*) 
END ; 
PRINTLIGNE(GI,ML13,INV) 3 
REPEAT | 
OPTION :=PCOMCTOTCOM+DIR) ; 
IF OPTION IN TOTCOM THEN BEGIN MENU:=OPTION:EXIT(MENU) END:;Cx lettre *) 
PRINTLI GNE (NUMOPT I ON ,MLNUMOPTI ON] ,NORM) ;C% dir r£crire en normal %*) 
CASE ORDCOPTION) OF 
8,21,10,11:BEGIN 
Cx*deplacementx) 
IF OPTION IN [BS,UTJ THEN NUMOPTION:=NUMOPTION-1 
ELSE NUMOPT I GN :=NUMOPT I ON+ 1 ; 
IF NUMOPTION<I THEN NUMOPTION:=MAXOP:;(xcirculairex) 
IF NUMOPTION2>MAXOP THEN NUMOPTION:=i ; 
PRINTLI GNE (NUMOPTION ,MINUMOPTIONJ,INVD:;C#xinv la liqne*) 


END ; 
13 : BEGIN MENU :=MINUMOPTION, 1]:EXIT(MENU) END;Cxopt sur returnx) 
END ; 
UNTIL OPTION=SESC;(x ESC pour sortir du menu *) 

END ; Des listages propres … 
Pour lister un programme sur impri- 

PROCEDURE ZEROMENU ; mante sans voir "JLIST” sur la feuille 

BEGIN  FILLCHAR(M,SIZEOF(M) ,CHR(O)) END; ni devoir faire "PR#0” après, il faut 
faire ”:PR#1 : LIST”. 

BEGIN Pour comprendre cela, lire le ‘Trucs 

END. et astuces” du numéro 7 en page 26. 


Malheureusement, ":PR#1: CATA- 
LOG” ne marche pas ! 
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Le programme présenté ici permet 
de trier des tableaux de tout type, à 
une où deux dimensions, avec asso- 
ciation éventuelle d'un deuxième ta- 
bleau contenant des informations pa- 
rallèles. 


Pour les tableaux à deux dimensions, 
là première représente les ‘rubri- 
ques” et la seconde les articles”. Le 
nombre de rubriques ne doit pas dé- 
passer 51, mais le nombre d'articles 
ne dépend que de la place mémoire 
disponible. 


L'appel de la routine se fait au 

moyen de l’ampersand (&): la sun- 

taxe en est la suivante : 

&TI,A(I,0),A(LN) 

avec : 

e À: nom du tableau (par exemple : 
A, B%, ZZ$...) 


Une routine de tri rapide 
en assembleur 


e I: indice sur lequel on trie (nu- 
méro de la rubrique) 

e A(I,0) : premier article du tri 

© A(IN) : dernier article du tri. 


On peut ne trier qu'une partie des 
articles en fixant les bornes. Par 
exemple : 


&T,LA(I,3),A(1,40) 


Si le tableau n'a qu'une dimension, I 
doit être à zéro. La syntaxe devient 
alors : 


&T,0,A(0),A(N) 


On peut associer un autre tableau au 
tableau trié, avec une syntaxe du 


type : 

&T,IA$(I2),A$(1,50),A(0,2) 

où A(0,2) désigne le premier élément 
trié du tableau associé à A$, le tri lui- 


Gérard Rigaud 


même se faisant sur la rubrique I de 
A$, du 2ème au 50ème article. 


Il est également possible de trier sur 
une partie d'article, avec une instruc- 
tion du type : 

&S,8,LA$(I,2),A$(1,50) 


par laquelle le tri se ferait à partir du 
8ème caractère des articles de A$. 

La profondeur admise ici pour le 
point de départ de la partie d'article 
retenue est limitée à 15 caractères 
(ligne 123 du programme source), 
mais il est possible de la modifier 
avant assemblage ou par un POKE à 
partir du BASIC. 


Les petits programmes de démons- 
tration listés ci-après vous permet- 
tront de bien saisir les modalités 
d'utilisation de cette routine. 





Programme TRITABLEAU : . 
DOS TOOL KIT p LDA MST 

d:; 33 STA $3F7 

2 FLAG  EQU $6 {Flag r{el.entier 34 RTS 

3 IND EQU $9 ylndice du tri 3 jm nnmnonmne Dtbut du progranne----------- 
4 ECART EQU $7 ;Ecart entre articles 36 ST CNP #454 "7° 

3 ECO EQU $8 ;Ecart indice 0 et tri 37 BEQ TRI 

6 START EQU #19 iÿPointeur fer {1{ment du tri 38 CNP #53 ;"S” 

7 FIN EQU $18 3Pointeur dernier {1{ment 39 BEQ SORT 

8 ARTI  EQU $FA Pointeur temporaire 40 JMP $DEC9 3SYNTAX ERROR 
9 ART2 EQU $FC ÿPointeur tenporaire 41 SORT  JSR CHRGET 

10 CHA2  EQU %FE iPointeur temporaire 42 JSR CHKCOM 

I MOVE  EQU $1E ;Pointeur tenporaire 43 JSR  FRINUM 

12 CSTART EQU $E0 iPointeur ler {l{ment COtableau | 44 JSR GETADR 

13 CARTI EQU $E2 ÿPointeur CÜtableau 45 DEY 

14 CART2  EQU $E4 ÿPointeur COtableau 46 DEY 

15 TECART EQU $1D ÿEcart fer tableau 47 STY PARTIEL 

1é TECO  EQU $Eé ÿEcart {1{ment jer tableau 48 NP TS 

17 CECART EQU $E7 ;Ecart COtableau 49 TRI LDA #$FF 

18 PARTIEL EQU $E8 50 STA PARTIEL 

19 SARA  EQU $9B ;Pointeur du tableau si JSR CHRGET 

20 CHRGET EQU $Bi 92 TS JSR CHKCOM 

21 CHRGOT EQU $87 53 JSR FRNUM 

22 FRMNUN EQU $DD47 jEvalue dans FAC 34 JSR GETADR  ;Rend FAC entier 
23 CHKCOM EQU $DEBE Teste ’,’ 55 STY IND plndice du tri 
24 MOVFM EQU $EAF9 Transfert M vers FAC 56 JSR CHKCOM 

25 SOUST EQU $EBB2 3FAC - ARG 57 JSR PTRGET 

26 GETADR EQU $E752 iRend entier FAC 58 STA START 

27 PTRGET EQU $DFE3 59 STA ARTI 

28 OR6 $9%A6 69 STY START+] 

® ;=-——-- Initialisation AMPERSAND------ éi STY ARTI+#] 
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63 JSR PTRGET 
64 STA FIN 
65 STY FIN+I 
éé JSR CALCUL 
67 LDA ECO 
68 STA TECO 
49 LDA ECART 
70 STA TECART 
71 STX FLAG 
72 JSR  CHRGOT 
73 CMP #42C 
74 BNE DEBUT 
75 JSR CHRGET 
74 JSR PTRGET 
77 STA CSTART 
78 STA CARTI 
79 STY CSTART+i 
80 STY CARTI+I 
81 JSR CALCUL 
82 LDA ECART 
83 STA CECART 


84 j-—--D{but du tri-—- 


85 DEBUT LDA NO 


8é STA IND 
87 SUIVANT CLC 
88 LDA  TECART 
89 ADC ART! 
90 STA ART2 
91 LDA #0 
92 ADC ARTI+1 
93 STA ART24 
94 cLC 
95 LDA CECART 
96 ADC  CARTI 
97 STA  CART2 
98 LA #0 
99 ADC CARTI+I 
100 STA  CART2+1 
joi LDA FLAG 
102 CNP 45 
103 _BEQ REEL 
104 TAY 
105 DEY 
106 ot #2 
107 BEQ ENTIER 
108 LDA GCARTI),Y 
109 STA MOVE 
110 LDA CART2),Y 
1 STA CHA 
112 DEY 
113 LDA CARTI),Y 
114 STA MOVE 
115 LDA CART2),Y 
116 STA  CHA2 
117 LOY PARTIEL 
118 CNP IN 
119 LDA CCH42),Y 
120 CNP (NOVE),Y 
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sinitialise pointeurs 


;COTABLEAU ? 
Non 


ÿFlag d’{change 
Calcul adresse 2{me article 


Calcul adresse 2{me article 


sRtel ? 
Qui 


;Entier ? 
OUI 


R'IPUNERMEMNE 
Es ss ti 


121 BCC DEPL ;CHA2 « CHAI 
122 BNE RIEN ;CHA2 ) CHAI 
123 CPY 415 Profondeur du tri 
124 BCC COMP 

125 BCS RIEN 

126 ENTIER SEC 

127 LDA (ART2),Y 

128 SBC (ARTI),Y 

129 DEY 

130 LDA (ART2),Y 

131 SBC (ART) ,Y 

132 BPL RIEN sART2 = ou } ARTI 
133 EMI DEPL ART2 « ARTI 
134 ;------Recommence à l’article 1------ 
135 BOUCLE LDA CSTART  jier article 
136 STA CARTI 

137 LDA CSTART+I 

138 STA CARTI+] 

139 LDA START ter article 
140 STA ARTI 

141 LDA START+#I 

142 STA ARTI+1 

143 BNE DEBUT 

144 ;-----Article suivant------ 

145 SUITE LDA CART2 Article suivant 
146 STA CARTI 

147 LDA CART2+{ 

148 STA CARTI+1 

149 LDA ART2 Article suivant 
150 STA ARTI 

151 LDA ART2+] 

152 STA ARTI+I 

153 BNE SUIVANT 

154 5------Test de fin du tri--——-- 

155 RIEN LDA ART2 

156 CNP FIN 

157 ©  BNE SUITE 

158 LDA ART2+i 

159 CMP FIN+i 

160 BNE SUITE 

161 LDA IND 

142 BNE BOUCLE 

143 RTS 

À nn ne EE en LES us 
165 REEL  LDA ART2 

1466 LDY ART2+i 

167 JSR MOVFN sART2 dans FAC 
168 LDA ART! 

169 LDY ARTI+I 

170 JSR SOUST 3ART2 - ARTI 
171 BPL RIEN sART2 = ou } ARTI 
172 ;------D{placenent des pointeurs-—--- 
173 DEPL SEC Calcul (l{ment 0 de ARTI 
174 LDA ARTI 

175 SBC TECO 

174 STA ARTI 

177 LDA ARTI+] 

178 SBC 40 

179 STA ARTI+] 


Pom's n° 11 


189 SEC Calcul (l{nent 0 de ART2 212 BIT $11 Chaine ? 








181 LDA ART2 213 ENI DIM] Oui 
182 SBC TECO 214 LDX #45 
183 STA MOVE 215 BIT $8i sR{el ? 
184 LDA ART2+1 216 BPL DIN! Qui 
185 SBC #0 217 LOX #82 
186 STA MOVE+{ 218 DINI  LDY #$4 Dimension ? 
187 LDY  TECART 219 LDA (SARA),Y 
188 DEY 220 CNP Hi jUne seule ? 
189 STA IND ÿPositionne flag 221 BEQ Di Qui 
190 SAP  LDA (ARTI),Y 222 LDY #48 rs 
191 PHA 223 LDA (SARA),Y Taille 1dre dimension #3 
192 LDA (MOVE) ,Y 224 Di TAY 3 
193 STA (ARTI),Y {change 2 dans ! 225 LDA #0 
194 PLA 224 STA ECART 5 
195 STA (MOVE),Y {change { dans 2 227 STA ECO ‘à 
194 DEY 228 STA CECART e 
197 BPL SAP 229 CLC iCalcul (cart entre articles D 
198 LDY CECART 230 D2 TXA EE SE te 
199 BEG RIEN 231 ADC  ECART Et 
200 DEY 232 STA ECART EE 
201 SWAPI LDA (CARTI),Y 233 DEY 
202 PHA 234 BNE D? 
203 LDA (CART2),Y 235 LDY IND 
204 STA K(CARTI),Y s{change 2 dans 1 236 BEQ D4 
205 PLA 237 CLC scart {1{ment 0 et tri 
206 STA (CART2),Y ;tchange 1 dans 2 238 D3 TA 55, 3,.2 
207 DEY 239 ADC ECO 
208 BPL SHAPI 240 STA EC 
209 EMI RIEN 241 DEY 
210 ;-------Sous programme recherche pointeurs------- 242 BNE D3 
211 CALCUL LDX #83 243 D4 RTS 
9B68- CO OF 90 F3 B0O 32 38 Bi 
RECAPITULATION PB70- FC F1 FA 88 Bi FC Fi FA 
Shñé- 49 B1 9B78- 10 26 30 45 À5 E0 85 E2 
SAA8S- 8D Fé 03 À9 94 8D F7 03 PB80- ÀS Ei 85 E3 AS 19 85 FA 
SABO- 60 C9 54 FO iA C9 53 FQ 9B88- ÀS5 1À 85 FB DOG 94 ÀS E4 
S4B8- 03 4C C9 DE 20 Bi 00 20 9B90- 85 E2 ÀS E5 85 E3 À5 FC 
SACO- BE DE 20 67 DD 20 S2 E7 PB?98- 85 FA ÀS FD 85 FB DO 86 
SAC8- 88 88 84 E8 4C Dé 94 A9 PBAO- ÀS FC C5 1B DO E8 AS FD 
SADO- FF 85 E8 20 Bi 00 20 BE 9BAS- C5 1C DO E2 À5 09 DO CC 
SAD8- DE 20 67 DD 20 52 E7 84 FBBO- 60 ÀS FC A4 FD 20 F9 Eñ 
SAEO- 09 20 BE DE 20 E3 DF 85 9BB8- À5 FA À4 FB 20 B2 EB 10 
SAES- 19 85 FA 84 14 84 FB 20 PBCO- DF 38 À5 Fâ ES Eé 85 FA 
9AFO- BE DE 20 E3 DF 85 1B 84 9BC8- À5 FB E9 00 85 FB 38 À5 
SAF8- 1C 20 01 9C À5 08 85 Eé 9BDO- FC ES Eé 85 1E ÀS5 FD E9 
9B00- À5 07 85 1D 86 06 20 B7 9BD8- 00 85 1F A4 1D 88 85 09 
9B08- 00 C9 2C DO 15 20 Bi 00 PBEO- Bi Fâ 48 Bi 1E 91 FA 68 
9B10- 20 E3 DF 85 E0 85 E2 84 9BES8- 91 1E 88 10 F3 A4 E7 F0 
9B18- Ei 84 E3 20 01 9C À5 07 PBFO- ÀF 88 Bi E2 48 B1 E4 91 
9B20- 85 E7 A9 00 85 09 18 A5 PBF8- E2 68 91 E4 88 10 F3 30 
9B28- 1D 45 FA 85 FC A7 00 65 9CO0- 9F À2 03 24 11 30 08 A2 
9B30- FB 85 FD 18 ÀS E7 65 E2 9C08- 05 24 81 10 02 À2 02 A0 
9B38- 85 E4 A9 00 45 E3 85 E5 9C10- 04 B1 9B C9 01 FO 04 A0 
9B40- ÀS 0é C9 05 F0 6B À8 88 9C18- 08 B1 9B À8 À7 00 85 07 
9B848- C9 02 F0 22 Bi FA 85 1F 9C20- 85 08 85 E7 18 84 65 07 
9B50- Bi FC 85 FF 88 Bi FA 85 9C28- 85 07 88 DO F8 A4 09 F0 
9B58- 1E Bi FC 85 FE A4 E8 C8 9C30- 09 18 84 45 08 85 08 88 
9Bé0- Bi FE Di 1E 90 SB DO 38 9C38- DO F8 40 


RE TÉ GER AN SEEN EE RSR. 
DEBAT AARIT SERPENT MEANS LEE TE IT 
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RE | 


EXEMPLES 

10 PRINT CHR$& (4) "BRUNTRITABLEAU 
-0BJ0" 

20 TEXT : CLEAR : HOME 

30 DIM A$(3,9),A(9): PRINT “TRI S 
UR 3 eme ELEMENT * 

40 FOR I = 0 TO 9: FOR J = 0 TO 3 
sASCJ,I) =  CHR$ (74 —- Id: PRINT 
ASCJ,1)"."3;:ACI) = I: PRINT À 
C1)" "33 NEXT : PRINT : NEXT 
5: VTAB 1: HTAB 25: PRINT "TRI 
MACHINE" 

90 & T,3,A4$8(3,0) ,4$(3,9) 

60 FOR I = 0 TO 9: HTAB 24: FOR J 
= 0 TO 3: PRINT A$(J,1)"."AC 
1)" ";: NEXT : PRINT : NEXT 

70 PRINT “TAPER UNE TOUCHE";: GET 
X$: HTAB 1: INVERSE : PRINT * 
LE MEME EXEMPLE AVEC COTABLER 
U": NORMAL 

735 CLERR : DIM A$(3,9) ,AC9): PRINT 
"TRI SUR 3 eme ELEMENT" 

80 FOR I = 0 TO 9: FOR J = 0 TO 3 
1ASCJ,1) = CHR$ (74 — I): PRINT 
ASCJ,1)"."3:ACI) = I: PRINT À 
C1)" “3: NEXT : PRINT : NEXT 
: VTAB 13: HTAB 23: PRINT "MA 
CHINE COTABLEAU" 

90 & T,3,48(3,0),4$(3,9) ,AC0): REM 

Transfere aussi AC) qui pe 
ut avoir egalement 2 dimensio 
ns 

100 FOR I = 0 TO 9: HTAB 24: FOR 


S PRINT CHR$ 


10 
20 
30 


40 


50 


60 


70 


80 


90 


100 


J = 0 TO 3: PRINT A$(J,1)"."A 
C1)" "3:33: NEXT : PRINT : NEXT 
VTAB 23: END 


(4) "BRUNTRITABLEAU. 
OBJO" 

TEXT : CLEAR : 

DIM A$(20): PRINT "“TABLEAU" 

FOR 1 = 0 TO 20:A$CI1) = CHR$ 
85 — 1) + CHR$S (85 — 1) + 
CéS5 + 1): PRINT A$SCI): NEXT : 
VTAB 1: HTAB 9: PRINT "TRINO 
RMAL * 

& T,C,A$(0),A$(20): 
TABLEAU ENTIER 

FOR I = 0 TO 20: HTAB 10: PRINT 
ASCII): NEXT : VUTAB 1: HTAB 19 
: PRINT "TRI 3eme" 

& S,3,0,4$(0) ,A$(20): REM TRI 

A PARTIR DU 3eme CARACTERE 

FOR I = O0 TO 20: HTAB 20: PRINT 
ASC(I): NEXT : VTAB 1: HTAB 29 
: PRINT "TRI 4eme“ 

& S,4,0,A$(0) ,A$(20): REM TRI 
À PARTIR DU 4eme CARACTERE 
FOR I = 0 TO 20: HTAB 30: PRINT 
A$SC(I1): NEXT : INVERSE : PRINT 
“TRI À PARTIR DU 1,3,4 CARACT 
ERE": NORMAL 
UTAB 23: END 


HOME 


STR$ 


REM TRI 


INDE D Ses DS DE Et +23 + + m1: 
ist Lis cs ee)": © 6, 


50 


5 PRINT CHR$ (4) "BRUNTRITABLEAU. 


OBJOC" 
10 TEXT : CLEAR : HOME 
20 DIM AZ(50): PRINT “TRI TABLEAU 


ENTIER i DIMENSION" 


30 FOR I = 0 TO S50:AZ%CI) = 100 -— 
1: PRINT AX(1ID:;" “ss NEXF :: 
PRINT : PRINT "TRI MACHINE" 
40 & T,0,A%C0) ,A(50): REM TRI 


TABLEAU ENTIER 
50 FOR I = O0 TO S0: PRINT AZ(1):;" 
“3: NEXT : PRINT 
PRINT "TAPER UNE TOUCHE" ;: 
X#$: PRINT : CLEAR 
70 DIM AX(S50): PRINT "TRI TABLEAU 
ENTIER i DIMENSION" 


60 GET 


80 FOR I = Q TO SO:AX(I) = 100 -— 
I: PRINT 4ZX(I1)3" “3: NEXT : 
PRINT : PRINT "LE MEME , TRI 
BASIC , C’EST PLUS LONG !" 

90 X = 0: FOR I = S0O TO 1 STEP - 
1: IF AZXCI) > = AXCI — 1) THEN 
110 

100 X = AXCI):A%CI) = AXCI - 1) :4% 
CI — 12 = X 

110 ONEXT : IF X THEN 90 

120 FOR I = O0 TO 50: PRINT AZ(I); 
: "3: NEXT : PRINT 





5 PRINT CHR$ (4) *BRUNTRITABLEAU. 


0OBJO"“ 

10 TEXT : CLEÂR : HOME 

20 DIM AZ(3,10): PRINT “TRI TABLE 
AU ENTIER" 

30 FOR I = 0 TO 10: FOR J = 0 TO 


8:AZCJ,1) = 20 - I + J: PRINT 
A2CJ,1)5" "3: NEXT : PRINT * 
*"3;: NEXT : PRINT : PRINT "TR 
I MACHINE" 

40 &T,0,42(0,0),4%(0,10): REM T 
RI SUR ELEMENT 0 TABLEAU ENTI 


ER 

50 FOR I = O0 TO 10: FOR J = O0 TO 
3: PRINT AZ(J,1)3;" "3;: NEXT 
: PRINT "#";: NEXT : PRINT 


60 PRINT “TAPER UNE TOUCHE" ;: GET 
X$: PRINT : CLEAR 

70 DIM 4%(3,10): PRINT “TRI TÂBLE 
AU ENTIER" 

80 FOR I = 0 TO 10: FOR J = O0 TO 


S:4%(J,1) = 20 - I + J: PRINT 


AZCJ,1)5;" "3: NEXT : PRINT 
#"3;: NEXT : PRINT : PRINT "LE 
MEME ,; TRI BASIC" 

90 X = 0: FOR I = 10 TO 1 STEP - 
1: IF AZX(O,1) > = AX(CO,I - 1 
> THEN 110 

100 FOR X = 0 TO 3:2 = AX(X,1) : AZ 
CX,1) = AZ(X,I —- 1):AZ{X,I - 
1) = Z: NEXT 

110 ONEXT : IF X THEN 90 

120 FOR I = 0 TO 10: FOR J = O0 TO 
3: PRINT AX(J,1)3;" *“3;: NEXT 
: PRINT "#x"3;: NEXT : PRINT 
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5 PRINT CHR$ (4)"BRUNTRITABLEAU. 
0BJO" 

10 TEXT : CLEAR : HOME 

20 DIM A$(50): PRINT “TRI TABLEAU 
CHAINE 1 DIMENSION" 

30 FOR I = 0 TO 50:A$#(I1) = STRS 
C99 — 12: PRINT ACID" "3: 
NEXT : PRINT : PRINT "TRI MA 
CHINE" 

40 & T,0,A$(0),A#(50): REM TRI T 
ABLEAU ENTIER 

50 FOR I = 0 TO 50: PRINT A$(1)3;" 

“;: NEXT : PRINT 

60 PRINT “TAPER UNE TOUCHE":;: GET 
X$: PRINT : CLEAR 

70 DIM A$(50): PRINT “TRI TABLEAU 
CHAINE 1 DIMENSION" 

80 FOR I = 0 TO 50:A$(1) = 
(99 — 1): PRINT A$CID3" "3: 
NEXT : PRINT : PRINT "LE MEM 
E , TRI BASIC , C’EST PLUS LO 
NG !" 

90 X = 0: FOR I = 50 TO 1 STEP - 

1: IF ASCI) > = A$CI - 1) THEN 
110 

100 X$ = ASCI):ASCI) 
SCI — 1) = X$SiX = 1 

110 NEXT : IF X THEN 90 

120 FOR I = 0 TO 50: PRINT A$(I); 
" "3: NEXT : PRINT 


ASCII —- 12: 


5 PRINT CHR$ (4)"BRUNTRITABLEAU. 
08J0" 

10 TEXT : CLEAR HOME 

20 DIM A$(3,10): PRINT "TRI TABLE 
AU CHAINE" 


30 FOR I = 0 TO 10: FOR J = 0 TO 
3S:IASCJ,I) = STR&S (20 - I + J 
>): PRINT AS(CJ,1);" "353: NEXT 


: PRINT “x"3;: NEXT : PRINT : PRINT 
"TRI MACHINE" 
40 & T,0,A$(0,0) ,A$(0,10): REM TR 


I SUR ELEMENT 0 TABLEAU ENTIE 
R 

50 FOR I = O0 TO 10: FOR J = 0 TO 
3: PRINT A$CJ,1)3;" "3: NEXT 


: PRINT "*#x";: NEXT : PRINT 

60 PRINT “TAPER UNE TOUCHE" ;: GET 
X$: PRINT CLEAR 

70 DIM A$S(3,10): PRINT "TRI TABLE 
AU CHAINE" 


80 FOR I = O0 TO 10: FOR J = 0 TO 

3:ASCJ,I) = STR$ (20 - I + J 

>): PRINT A$CJ,1)3;" "3: NEXT 

: PRINT "x"3;: NEXT : PRINT 

"LE MEME , TRI BASIC" 

= 0: FOR I = 10 TO 1 STEP -— 

1: IF ASCO,1) > = A$CO,I — 1 

) THEN 110 

100 FOR X = 0 TO 3:2$ = AS(X,1):A 
SCX,ID = ABSCX,I —- 1):ASCX,I — 
1) = 2$: NEXT :X = 1 

110 NEXT IF X THEN 90 

120 FOR I = 0 TO 10: FOR J = 0 TO 
3: PRINT A$(CJ,1)3;" "3: NEXT 
3: PRINT "#x"3;: NEXT : PRINT 


PRINT 
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S PRINT CHR$ (4) "BRUNTRITABLEAU, 


10 
20 


30 


40 


50 


60 


79 


80 


100 


110 
120 


OBJO" 
TEXT : CLEAR : HOME 
DIM A(50): PRINT “TRI TABLEAU 
REEL 1 DIMENSION" 
FOR I = 0 TO 50:A(I1) = 100 - I 
: PRINT A(CI)3" “ss: NEXT 3: PRINT 
: PRINT "TRI MACHINE" 
& T,0,4(0),4(50): REM 
BLEAU ENTIER 
FOR I = O0 TO 50: PRINT A(I1)3;" 
“53: NEXT : PRINT 

PRINT "TAPER UNE TOUCHE" ;: GET 

XH: PRINT : CLEAR 
DIM ACS0): PRINT "TRI TABLEAU 

REEL 1 DIMENSION" 
FOR I = 0 TO SO:A(I) = 100 - I 

: PRINT A(I);" “32 NEXT : PRINT 
PRINT "LE MEME , TRI BASIC 
C'EST PLUS LONG !" 
O0: FOR 1 = 50 TO 1 STEP - 


TRI TA 





5 IF ACID > = ACI —- 1) THEN 
10 
X = ACID:IACID = ÀAÇI - 1):ACI - d 
1) = X 
NEXT : IF X THEN 960 


FOR I = 0 T9Q 50: PRINT 4(1);" 
"3: NEXT PRINT 


5 PRINT CHR$ (4) "BRUNTRITABLEAU. 


10 
20 


30 


4û 


50 


110 
120 


0BJO" 

TEXT : CLESR : HOME 

DIM À4(3,10): PRINT “TRI TABLEA 
U REEL" 

FOR I = O0 TO 10: FOR J = 0 TO 
3:ACJ,1 = 20 — 1 + J: PRINT 


ACJ,1)3" "3: NEXT : PRINT "x 
";: NEXT : PRINT : PRINT "TRI 
MACHINE" 


& T,0,A(O,0),4(0,10): REM TRI 
SUR ELEMENT 0 TABLEAU ENTIER 


FOR 1 = O TO 10: FOR J = 0 TO 

3: PRINT ACJ,1)23" "3: NEXT : 
PRINT “#";: NEXT : PRINT 

PRINT "TAPER UNE TOUCHE" ;: GET 
X$: PRINT : CLEAR 

DIM A(3,10): PRINT "TRI TABLEA 
U REEL" 

FOR 1 = 0 TO 10: FOR J = O0 TO 
8:ACJ,1) = 20 - 1 + J: PRINT 
ACJ,1)3" "3: NEXT : PRINT "x 
"3: NEXT : PRINT : PRINT "LE 
MEME , TRI BASIC" 
= 0: FOR I = 10 TO 1 STEP - 
1: IF ACO,I) > = ACO,I — 1) THEN 
110 
FOR X = 0 TO 3:Z = ACX, I) :ACX 
1) = ACX,I — 1)2:ACX,I — 1) = 
Z: NEXT 


NEXT : IF X THEN 90 


FOR 1 = Q TQ iQ: FOR J = Q TO 
3: PRINT ACJ,1)3;" "3: NEXT : 
PRINT 


PRINT "x*;: NEXT 





Effets stroboscopiques sur 


la page graphique 


Olivier Herz 


JU Y À QUELQUE 
CHose Qui CLOCHE 
DANS LE PROGRAMME . 


L'idée de ce programme m'est venue 
d'une idée originale publiée dans 
Softside Magazine. 





par exemple l'on se contente d'exé- 
cuter les instructions en assembleur 
suivantes, la période (2 switches} est 
de 11 micro-secondes {voir "La Pra- 
tique de l'Apple I”, volume 3) : 


ZER BIT $C054 
BIT $C055 
JMP ZER 


En faisant varier cette fréquence. on 
peut obtenir des effets stroboscopi- 








# Ceux qui ont acheté la disquette du SN ques. 
sa numéro 6 de Pom's ont sans doute 
Es remarqué un curieux effet strobosco- Nous vous proposons de bien visuali- 
Es pat 02e FE ing me ser un tel effet en faisant varier la fré- 
de Jacques Duma (DEMO TOR- A dd 0 
E re re cu pren en contrôlera le temps d'affichage de la 
Er FN 0e SANS EN MNEISE"SS EE page 1 et la manette 1 celui de la 
EE plaçant lenternent sur une image po- page 2. On peut utiliser au choix un 
EE - Ne Il avait lieu alors que l'on joystick ou 2 manettes. 
RE switchait” entre les pages graphi- 
2 ques haute résolution. la page 2 
étant le négatif de la page 1: il était Nous utiliserons les deux routines 
dû à un phénomène stroboscopique (relogeables) en assembleur suivan- 
entre la fréquence de balayage de tes, entrées en mémoire par la mé- 
l'écran vidéo et la fréquence de thode de SH.LAM (voir Poms 2 
switch entre les pages graphiques. Si page 61 ou Recueil page 94). 
Inversion de la page 1 avec résultat dans la Switch des pages avec pauses proportionnelles 
page 2 : aux paddles : 
HÉENUee PREAD EQU $FBIE :lit dans À la manette X 
MEME PORTES KBD EQU $C000 :clavier (-16384) 
A0 20 LDY #32 :octet haut de la page 1 KBDSTRB EQU $C010 :strobe du clavier (-16368) 
en ne | PAGE1 EQU $C054 :switche vers la page 1 (-16300) 
à : Fe Enr NE or haut de la page 2 PAGEZ2 EQU $C055 :switche vers la page 2 (-16299) 
AO 00 LDY #0 :pour l'adressage indirect indexé ONE 2C 54 C0 BIT PAGE :switche vers la page 1 
84 FC STY MEMI A2 00 LDX #0 
84 FE STY MEM2 20 1E FB JSR PREAD lit la manette 0 
ZER B1 FC LDA (MEM1).Y :octet de la page 1 2C 55 CO BIT PAGEZ :switche vers la page 2 
49 FF EOR #255 :on l'inverse A2 01 LDX #1 
91 FE STA (MEM2),Y :résultat dans la page 2 20 1E FEB JSR PREAD :lit la manette 1 
C8 INY :on boucle sur Ÿ de 0 à 255 (1 page mémoire] 2C 00 C0 BIT KBD :touche enfoncée ? 
DO F7 BNE ZER 10 EB BPL ONE 
E6 FD INY MEMI +1 2C 10 C0 BIT KBDSTRB :remise à 0 du clavier 
E6 FF INY MEM2+1 60 RTS 
A5 FD LDA MEMI+1 
C9 40 CMP #64 :on boucle sur les pages 32 à 63 
DO ED BNE ZER 
60 RTS 
Bien sûr. la 2ème page graphique ques haute résolution par une page de l'écran. Bien entendu, dans ces 
peut ne pas être l'inverse de la 1ère. texte ou graphique basse résolution. différents cas. il faudra utiliser les 
De plus, cet effet reste si on rem- car seule la vitesse de balayage de autres switches graphiques de l'Ap- 
place l'une ou les deux pages graphi- l'écran entre en jeu. pas le contenu ple. = 
10 REM  STROBOSCOPE 120 ÀA$ = "320:A0 20 84 FD A0 40 84 
20 REM =========== FF A0 00 84 FC 84 FE Bi FC 4 
9 FF 91.FE C8 DO F7 Eé FD Eé 
100 TEXT : HOME : HGR : VTAB 21: INPUT FF ÀS FD C9 40 DO ED 60": GOSUB 
"NOM DE LA PAGE GRAPHIQUE ? " 1000 
3AHb: POKE — 16302,0: PRINT CHR$ 130 CALL 800: CALL 768: TEXT HOME 
(4)"BLOAD'A$" ,A$2000" 5 END 
110 ÀA$ = "300:2C 54 CO À2 00 20 1E 1000 À$ = À$ + " N D9CéG": FOR I = 
FB 2C 55 CQ A2 Qi 20 iE FB 2 1 TO LEN (A$): POKE Sil + I, 
C 00 CO 10 EB 2C 10 CO 60": GOSUB ASC © MID CA$,1,1)) + 128: NEXT 
1000 : POKE 72,0: CALL — 144: RETURN 
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Je n'y croyais pas. Mon métier, c'est 
d'écrire. Trente années de clavier in- 
tensif mal tempéré, de la machine 
mécanique à l'Apple II, avec une im- 
possibilité radicale de rédiger plus de 
deux lignes - illisibles - à la main. 
Alors la souris de Macintosh, non 
merci, ce n'était pas pour moi. 


Deux heures ont suffi pour que je 
me retrouve, inconditionnel, dans le 
camp de la souris, avec des crampes 
à la main droite le premier jour et un 
immense sentiment de liberté les 
jours suivants. 

Je répète : mon métier c'est d'écrire, 
pas de faire des routines, encore 
moins de la routine. Et surtout pas 
de taper, même si je tape très vite. Il 
peut m'arriver de faire des program- 
mes en BASIC, en Pascal, en Super- 
pilot. Ce n’est pas l'essentiel. 


Alors j'ai vite compris que Macintosh 
était la première machine” qui per- 
mette de créer, sans aucune 
contrainte externe, à un détail près 
que je soulignerai tout à l’heure. Je 
dis bien détail” parce que c'est pas- 
sager, et j'écris bien ‘’machine” parce 
que le mot ‘ordinateur’ ne me vient 
pas au clavier. J'ai envie de dire 
“robot de bureau”. 


Premier temps, je sors Mac de son 
carton. Emerge un petit bonhomme 
ventru haut comme trois pommes 
(bien sûr), avec un petit écran et un 
petit clavier détachable. Attention, 
encore un cliché à voiler une fois 
pour toutes : tous les claviers alpha- 
numériques à touches classiques sont 
de la même taille. Donc, celui de 
Mac a beau paraître petit, il ne l’est 
pas, pour la bonne raison qu'il n’y a 
pas de ‘petit clavier”. Pourquoi sem- 
ble-t-il ”petit” ? Parce qu'il ne lui 
reste que deux touches de fonction, 
dont l’une, au moins, le célèbre 
Control” qui s’orne ici d’un sigle bi- 
zarre que l'on identifie très vite, ne 
demeure que par concession au 
passé. 


Une fois posé le bonhomme sur le 
bureau - qu'il a l'air menu à côté du 
gros” Apple //e - j'enfonce la fiche 
dans la machine” puis dans la prise: 
je branche le clavier. En une dizaine 
de secondes, c'est fini, c'est-à-dire 
que tout commence. J’enfonce dans 
la fente avant un gros bout de carton 
avec une espèce de serrure en métal 
que je sors de ma poche (il paraît 
que c'est une disquette 3,5 pouces), 
et je mets le contact. L'écran vit, des 
carrés, des rectangles gris sillonnent 
l'espace gris-blanc. Un menu ? Il pa- 
raît. 


Moi, je vois une autre chose, 
étrange, inattendue: un manuscrit 
copié par un moine du Moyen-Age. 
Cette première impression se confir- 
mera les jours suivants: avec Mac, 
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nous franchissons une formidable 
étape de rétro-innovation, c'est-à-dire 
de bond dans les deux directions du 
temps, le passé et l'avenir. 

Le passé: jusqu'à l'apparition de 
l'imprimerie, il ne pouvait y avoir de 
texte que personnel (on ne disait pas 
encore ‘’personnalisé”), puisque cha- 
que copie, dans sa forme, était un 
original, avec la calligraphie, les orne- 
ments, la mise en page du copiste. 
L'imprimerie, fantastique découverte 
bien sûr, est venu jeter là-dessus sa 
chape d’uniformité. Beaucoup de 
livres pour beaucoup de monde, 
mais tous les mêmes {les livres) ou 
presque. Allez vous étonner, après 
cela, que des Apollinaire, des Mi- 
chaux ou des Prévert aient éprouvé 
le besoin de faire des calligrammes, 
de réinventer la forme, de lui redon- 
ner sa place. 

L'avenir: c'est exactement ce que 
ramène Macintosh. Les poètes, les 
écrivains, les créateurs deviennent 
tous des éditeurs, des imprimeurs, 
sur cette machine” dont l'écran re- 
produit presque parfaitement la page 
écrite, la page manuscrite. 


Sur ma disquette, deux programmes, 
MacWrite - traitement de texte - et 
MacPaint - traitement graphique. Du 
jamais vu, du jamais imaginé, l’un 
comme l'autre. MacWrite : neuf jeux 
de caractères (dont un gothique), six 
variétés d'édition (ombre, relief, itali- 
que …), cinq dimensions d’impres- 
sion, du 9 au 24 points, que l'on 
peut combiner, que l’on peut aug- 
menter en créant ses propres caractè- 
res. Et toujours, toujours, toujours 
sans avoir jamais, jamais, jamais be- 
soin de connaître un seul nom de 
touche de contrôle, de se demander 
si c'est CTRL-Elrase) ou CTRL- 
D(elete) qui signifie effacer”, s’il faut 
faire ESC-A ou ESC-Q, CTRL- 
Save), CTRL-L{oad). 


La libération, la voici: tout est à 
l'écran, écrit en clair: ‘’fermer”, 
couper”, ouvrir”, coller”, ‘effa- 
cer”, enregistrer” (ouf! Du même 
coup, nous voici libérés des affreux 
barbarismes du genre ”’sauvegarder”, 
sauver”, comme si tous les textes et 
programmes d'ordinateurs étaient 
toujours des chefs d'oeuvre en péril). 
Et pourtant, votre écran semble vide, 
en tout six mots sur la ligne du haut. 
Autant de tiroirs que vous ouvrez 
d'un coup de souris magique, sans 
plus y penser, comme si votre main 
faisait désormais ‘cerveau à part”. 


Or, toutes ces commandes en arbo- 
rescence - il doit y en avoir plus de 
cinquante dont vous n'avez pas à 
vous souvenir - demeurent les 
mêmes pour tous les programmes de 
Macintosh. J'ai essayé Multiplan et 
MacPaint (je vais y revenir). Il y aura, 
très vite, la série des PFS (les Perso- 
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nal Files System, chef d'oeuvre de 
simplicité et d'efficacité), Multichart, 
MacDraw et bien d'autres program- 
mes. Je sais déjà que je n'aurai pas à 
les apprendre, à me redemander dix 
fois si c’est CTRL-P, CTRL-Q ou 
même ’T” pour ‘Transfert’. Cette 
fois, nous y sommes : l'ordinateur est 
au service de l'homme. de tous les 
hommes qui savent lire et écrire, et 
non plus de l'informaticien seul. Et si 
Macintosh était le premier vrai micro- 
ordinateur ? Il faut lui donner un 
autre nom, celui-là est déjà pris. 
Pourquoi pas un BUREAUBOT ? 


Je reviens à MacWrite : avec Macin- 
tosh, pas question d'écrire en style li- 
néaire. La machine ne l’est pas puis- 
qu’elle permet sans cesse de se 
promener partout dans le système. 
Avec MacWrite, je l'avoue, j'ai un 
truc sentimental tout bête. J'ai deux 
enfants en bas âge, Nathanaël et 
Marie-Laëtitia. Ma femme n'est pas 
très attirée par les ordinateurs et je 
sais bien pourquoi : ils ne permettent 
pas d’orthographier correctement le 
prénom de nos enfants. Quelle ‘’ma- 
chine” vous sort le ”i” avec un tréma 
et le célèbre ’e pris dans a ou dans 
0”? O surprise ! O merveille ! Mac 
sait faire tout ça, et bien d’autres 
choses encore. J'ai encore le clavier 
QWERTY et pourtant, tous les ac- 
cents sont là. À l'écran. Y compris le 
circonflexe, qui se pavane sur les 
a”, les ‘’o”, les ’u” le plus naturelle- 
ment du monde, comme s'il était 
tout à fait courant, pour un accent 
circonflexe, de se montrer grandeur 
nature sur un écran d'ordinateur. 


Je saute à MacPaint. C’est - évidem- 
ment - tout simple: deux coups de 
souris. Là, ce sera bref. Parce que 
MacPaint ne se raconte pas, il se 
dessine. Et je ne sais pas dessiner. 
Mais je peux tout de même 
comprendre qu'il y a là tout ce dont 
un dessinateur a toujours eu besoin 
et n'a jamais osé espérer trouver un 
jour: une gomme, du papier, un 
crayon. Mais aussi des mines de 
tailles différentes à un coup de souris 
les unes des autres, des fonds, des 
tas de fonds que l’on peut répandre 
à volonté, aux dimensions et aux 
formes que l’on veut. Et une main 
qui vous fait faire le tour de la page 
en promenant votre dessin dans les 
recoins secrets de l'écran. Et une 
loupe pour les retouches, et une 
brosse, et une possibilité de changer 
la taille des dessins, et un lasso pour 
capturer la partie du chef d'oeuvre 
dont vous désirez incruster votre 


















texte. À moins que vous ne fassiez le 
contraire, que vous mettiez du texte 
dans le dessin: MacPaint accepte 
tous les jeux de caractères de Mac- 
Write, avec même quelques tailles 
supplémentaires. Je regrette encore 
plus que jamais de ne pas savoir des- 
siner. Mais je suis heureux pour mes 
amis publicitaires, créateurs de mode, 
futurs auteurs de jeux d'aventure, de 
programmes didactiques, artistiques 
de tous poils. La définition, 512 par 
342 points, suffit largement pour 
faire une recherche très élaborée, 
d'autant plus que vous imprimez... 


J’allais oublier l'imprimante, juste- 
ment, l’Imagewriter (tout est dans 
son nom), inséparable compagne de 
Mac : silencieuse, solide, graphique, 
accessible instantanément. Avec une 
petite coquetterie : trois modes d’im- 
pression en texte. Brouillon : j'appuie 
et c'est parti. C'est rapide, et c’est 
vraiment un brouillon que vous pou- 
vez retravailler sur papier. Au niveau 
supérieur, c'est standard : impression 
honnête, plus lente. Avec “Qualité 
Supérieure”, c'est tout simplement 
super : l'imprimante se met à faire 
des pleins et des déliés comme un 
’instit” de la vieille école, ceux qui 
vous tapaient sur les doigts si vous 
n'écriviez pas en ronde avec une 


plume sergent-major. Mac est plus 
gentil, il le fait faire par Imagewriter. 


J'en arrive aux deux contraintes. La 
première : il y a tellement de jeux de 
caractères, tellement de possibilités 
que vous ne pouvez jamais savoir 
combien de caractères, combien de 
lignes vous avez tapés. Dommage, 
mais compréhensible. Plus grave : un 
document ne peut avoir plus de 8 
pages. Après, il faut en ouvrir un 
autre. Et si vous écrivez un roman où 
les chapitres ont trente ou cinquante 
pages, que vous voulez couper, insé- 
rer de la 3ème à la 24ème ? Il faudra 
sans doute attendre la fin de l’année, 
lorsque Mac grossira, qu’il passera de 
128 à 512 K de mémoire centrale. 
En attendant, écrivez plutôt des nou- 
velles, ou arrangez-vous pour que 
vos chapitres soient si bien écrits et 
composés qu'il devienne inutile de 
les retrafiquer. 


Restent les programmes. Oui, vous 
aurez un BASIC presque Microsoft, 
avec des lignes pas forcément numé- 
rotées : les numéros, c’est pour les 
?GOTO” et autres anachronismes du 
même genre. Et un Instant Pascal”, 
comme il existe aux Etats-Unis un 
Instant Coffee” ou café soluble. Le 
Pascal est soluble, lui, parce qu'il a 


Magic Window II à l’essai 


Alexandre Avrane 


La majorité des logiciels de micro-in- 
formatique professionnelle se divisent 
en trois catégories principales : les 
éditeurs de texte, les tableurs et les 
gestionnaires de fichiers. Depuis l'ap- 
parition de l'Apple /'e et de son cla- 
vier amélioré. la compétition entre 
éditeurs de texte est devenue féroce: 
récemment arrivé. Magic Window II 
(MW2) est destiné à remplacer l'an- 
cienne version de Magic Window. 
dont le chiffre des ventes déclinait 
dramatiquement face à la poussée 
des nouveaux éditeurs, Apple Writer 
‘e et WordStar principalement. 


Repris par Bill Depew. il s'adresse 
aux possesseurs d'Apple II Plus (avec 
extension de 16K au moins) ou de 
‘e. [l conserve les qualités originelles 
de son prédécesseur en incluant plus 
de souplesse d'utilisation, mais de- 
meure très conservateur : aucun nou- 
veau concept du traitement de texte 
n'a été introduit. 


Adaptable à la plupart 
des configurations 


Magic Window Il se compose de 
l'habituel classeur renfermant la do- 
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cumentation et deux disquettes pro- 
tégées. La première permet de sau- 
vegarder, sur une disquette vierge, 
les paramètres de la configuration de 
l'utilisateur : MW2 offre à ce niveau 
une grande diversité de choix et ac- 
cepte la plupart des cartes 80 colon- 
nes et interfaces d'imprimantes, ainsi 
que l'existence d'une éventuelle 
ROM LC, d'un clavier amélioré, ou 
de la modification de la touche Shift. 


La deuxième disquette est. bien sûr, 
la plus utilisée du système Magic 
Window, et contient le programme 
proprement dit. Après avoir ‘booté”, 
il faut indiquer si l’on désire le char- 
gement optionnel du module permet- 
tant l'affichage sur 70 colonnes, très 
agréable si l'on ne dispose pas de 
carte 80 colonnes. Il faut ensuite pla- 
cer la disquette sur laquelle ont été 
stockés les paramètres de configura- 
tion. où taper un simple Return pour 
utiliser les options par défaut de la 
disquette système. Il s'agit donc 
d'une procédure relativement longue. 
mais qui offre l'avantage de charger 
en une fois tous les modules du pro- 
gramme : la disquette système peut 
donc être immédiatement rangée 
dans son étui. 
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perdu son compilateur dans l'opéra- 
tion, où du moins, s’il l'a conservé, 
vous n’en savez rien du tout. Vous 
écrivez votre programme sur la gau- 
che de l'écran, un coup de souris 
magique et il se déroule directement 
sur la partie droite, vous signale 
toutes les erreurs, tous les trucs qui 
ne vont pas. Et vous réparez sur le 
champ de bataille. Autant dire que 
s'il est beau, le Pascal, tout comme 
le BASIC, sa puissance est mesurée. 
Formidable pour apprendre, mais si 
vous avez des ambitions de type Bill 
Gates ou Bill Budge, alors non. Allez 
écrire vos Multiplan ou autres Pinball 
Set sur Lisa, un nouveau Lisa 
compatible Mac (ou l'inverse). Et 
vous en serez récompensés : une fi- 
gure animée sur Mac, c’est une gra- 
vure d’'Holbein en mouvement (si le 
talent y est, bien sûr). 


Manque la couleur, c'est dommage. 
Mais la couleur y est, camouflée dans 
les PROMs, prête à sortir lorsqu'un 
Roland Moréno pas quelconque vou- 
dra bien aller l'y débusquer. Le vrai 
problème, c’est l'écran. La télé n’est 
pas assez bonne et l'écran est cher. 
Dans six mois, dans un an, voire 
deux, lorsque le nombre de Macin- 
tosh vendus planera dans les un ou 
deux millions... E 


Les utilisateurs des logiciels 
d'ARTSCI. et en particulier de Magi- 
calc (cf. Pom's 9), ne seront pas dé- 
paysés. car les menus sont très simi- 
laires et se distinguent par une 
excellente ergonomie. Un bon point 
donc. reflétant la philosophie géné- 
rale de Magic Window IL. qui se veut 
directement utilisable par tout opéra- 
teur non-informaticien. 


Une documentation faci- 
lement assimilable 


Cette approche se retrouve égale- 
ment dans la documentation améri- 
caine, qui tente en premier lieu de 
dédramatiser l'apprentissage des rela- 
tions homme-ordinateur pour un 
‘non-initié”. L'approche pédagogi- 
que est très progressive et le lecteur 
est invité à travailler sur plusieurs 
exercices. En revanche. la documen- 
tation se révèle quasiment muette sur 
les aspects techniques: je n'ai pu dé- 
terminer, par exemple. si Magic Win- 
dow Il utilisait automatiquement une 
éventuelle carte d'extension mémoire 
supplémentaire comme Magical. 
autre produit d'ARTSCI. qui gère 
jusqu'à 512K de RAM. La traduction 
en français, réalisée par Ordinateur 
Express, reprend la documentation 
originale, malheureusement en plus 
succint: pas d'exercices proposés. Il 
y manque également l'index et quel- 
ques détails (touches à utiliser pour 
générer des caractères spéciaux). 
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L'utilisation des deux manuels sera 
donc nécessaire. 


Une utilisation très 
compartimentée par des 
menus 


Six sections principales $ont offertes 
à partir du menu : 


e l'éditeur de texte proprement dit: 

e le sous-système de gestion des fi- 
chiers: | 

e le sous-système de formatage per- 
met de spécifier les marges d'une 
page de texte: 

e le sous-sustème d'impression: 

e le sous-sustème de configuration, 
enfin, permet de modifier la confi- 
guration du clavier, de l'affichage 
vidéo ou des slots sans devoir re- 
charger le programme. 


Remarquons qu'il n'existe pas de 
fonction d'aide (help) disponible di- 
rectement. 


Visualisation du 
texte page par page 


L'éditeur de texte est, bien évidem- 
ment, constamment utilisé. On est 
tout de suite frappé par l'ordonnan- 
cement ergonomique des touches de 
fonction : il ne m'a fallu qu'une di- 
zaine de minutes pour les mémoriser. 
alors que je ‘sèche encore parfois 
sur d’autres éditeurs que j'utilise cou- 
ramment ! Un autre point que j'es- 
time très positif est l'absence de dé- 
calage d'un caractère, sur la ligne sur 
laquelle se trouve le curseur, comme 
on peut l'expérimenter sur Apple 
Writer où le curseur est, par défaut, 
en mode d'insertion. 


Un texte correspond à un ensemble 
maximum de 160x112 caractères par 
page et l'écran vidéo correspond à 
une fenêtre de 40. 70 ou 80 colon- 
nes sur 22 lignes. Cette fenêtre se 
déplace automatiquement pour sui- 
vre le curseur et l'on peut donc taper 
un texte au kilomètre sans regarder 
l'écran. 


Pour obtenir un affichage sur 70 co- 
lonnes en haute résolution, on doit 
charger le module adéquat au mo- 
ment du boot: il ne faut cependant 
pas en abuser car la mémoire dispo- 
nible est alors réduite de 26 à 13K. 


Une particularité de Magic Window II 
est l'affichage permanent des coupu- 
res de pages. ce qui permet de mon- 
ter ou abaisser de quelques lignes un 
paragraphe qui ne doit pas être tron- 
qué, et évite donc de pénibles essais 
à tâtons avec l'imprimante. Il est de 
plus possible de spécifier une ligne 
de titre répétée à chaque page. et 
d'écrire une ligne indifféremment en 
justification à gauche, à droite, cen- 
trée ou totale. 
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Un texte facile à entrer, 
difficile à corriger 


Les options de correction de l'éditeur 
ne sont malheureusement guère pra- 
tiques : il n'est pas possible de sup- 
primer ou déplacer un gros bloc de 
texte, et les fonctions de recherche 
ou remplacement d'une chaîne de 
caractères: sont rudimentaires : im- 
possible de spécifier une page ou 
une colonne pour la recherche, de 
convertir en majuscules une chaîne 
en minuscules et vice-versa, de re- 
chercher des caractères spéciaux ou 
de contrôle. 


Magic Window Il offre donc des qua- 
liés indéniables d'esthétique et d'er- 
gonomie pour la saisie rapide d'un 
texte, mais il sera parfois nécessaire 
de transférer le fichier vers un autre 
éditeur pour une correction 
complexe. 


Une impression facile 


Le sous-système d'impression offre la 
saisie de nombreux paramètres d'édi- 
tion: nombre d'exemplaires, numé- 
rotation automatique des pages, etc. 
L'impression est, de plus, facilitée par 
la visualisation permanente du texte 
tel qu'il sera imprimé. 


Une option intéressante est la possi- 
bilité de demander l'impression 
d'une liste de fichiers contenus sur 
une disquette dans l'ordre désiré et 
de manière automatique: ce n'est 
certes pas aussi performant que ce 
qu'il est possible d'obtenir avec le 
langage WPL d'Apple Writer j'e. 
mais offre une manière simple et élé- 
gante d'obtenir un résultat proche. 


Il est également possible de deman- 
der une impression vers le lecteur de 
disquette pour une retransmission ul- 
térieure par modem ou un autre pé- 
riphérique. 


Une gestion de fichier 
parfois étonnante 


Tout d'abord, oh surprise, MW2 gère 
ses fichiers avec ce monstre préhisto- 
rique de lenteur qu'est le DOS 3.3! 
En corollaire, il est impossible de 
transférer des fichiers Pascal, CP/M 
(et, bien sûr, ProDOS). Magic Win- 
dow impose le suffixe ” MW” à ses 
fichiers. Pourquoi une telle limitation 
qui complique les transferts entre édi- 
teurs ? 


L'utilisateur peut sauvegarder ou 
charger son texte par un fichier bi- 
naire, lisible uniquement par Magic 
Window Il, qui inclut le texte lui- 
même ainsi que les paramètres de ta- 
bulation et de formatage de ce texte. 
Excellente idée, puisqu'elle évite 
d'utiliser un fichier supplémentaire de 
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paramètres, mais pourquoi ne pas 
l'avoir approfondie, par exemple en 
compactant le texte (un tableau édité 
peut comprendre 70 % de caractères 
blancs contigus - il est donc compres- 
sible : cf. Pom's 10 sur le compac- 
tage des écrans HGR) ? 


Il est d'autre part possible d'utiliser 
des fichiers textes au standard DOS 
3.3 mais. dans certain cas. j'ai ren- 
contré des bugs étranges. le pro- 
gramme sauvant inlassablement un 
fichier jusqu'à ce que la disquette soit 
pleine, ou se “plantant” en chargeant 
un fichier Apple Writer. Prudence 
donc ! 


En conclusion, Magic Window II 
est un excellent logiciel pour la pre- 
mière frappe d'un document, grâce à 
ses excellentes qualités ergonomiques 
et l'utilisation très pratique du curseur 
qui permettent une saisie très rapide 
et sans migraine, mais il n'offre 
aucun aspect révolutionnaire dans 
son appproche et souffre de quel- 
ques lacunes qui rendront difficile 
une réécriture partielle du texte. Il 
reste néanmoins un produit amical. 
d'un rapport qualité/prix très compé- 
titif. 

NDLR - Magic Window Il à égale- 
ment été testé par Guv Lapautre, qui 
complète l'analyse d'Alexandre 
Avrane par ces remarques : 


1 - Je trouve qu'une version moder- 
nisée de ce logiciel, qui prétend être 
adaptée à l'Apple le, et ce sans utili- 
ser ses touches particulières (flèches 
verticales, pommes, ..)}. est une 
aberration. 


2 - Les codes de déplacement utilisés 
(CTRL-Q ou W ou Z ou X). parfaite- 
ment ergonomiques en Qwerty. sont 
ridicules en Azerty (la traduction du 
manuel le reconnaît d'ailleurs). Je 
suis d'autant moins gêné pour le dire 
que je travaille toujours en Quwerty. 


3 - Je m'oppose à l'idée d'utiliser un 
logiciel (Magic Window par exemple) 
pour une première frappe et un autre 
(Apple Writer par exemple) pour les 
corrections. Ces deux logiciels étant 
fondés sur des principes totalement 
différents, il faut de longues heures 
pour se débarasser des réflexes 
acquis par une bonne habitude d'un 
logiciel afin de passer à un autre. 


4 - Je trouve que Magic Window 
manque un peu de fonctionnalités 
aujourd'hui courantes. surtout dans 
le domaine des déplacements et rem- 
placements de texte. En revanche, il 
a gardé une gestion très commode 
par menus bien conçus. 


En résumé, je préférais nettement 
Magic Window [I à Apple Writer I. 
Maintenant, je vote sans hésiter en 
faveur d'Apple Writer Il, face à Magic 
Window IL. = 
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Comparaison de deux programmes 


Contrairement à ce que l’on pourrait 
croire, l’activité du programmeur ne 
s'exerce pas toujours dans le cadre 
d'une organisation sans faille. Peut- 
être faut-il voir là une manifestation 
de ce désordre bouillonnant qui ca- 
ractérise souvent le travail des grands 
créateurs. 


Ainsi, il vous est sans doute déjà ar- 
rivé de vous trouver avec plusieurs 
versions d'un même programme en 
Applesoft, sauvées sous des noms 
trop semblables pour que leurs nuan- 
ces puissent vous éclairer, sans savoir 
discerner de façon certaine le fichier 
contenant les plus récentes modifica- 
tions. 

S'il s'agit d'un programme relative- 
ment long. la recherche des différen- 
ces significatives peut représenter une 
perte de temps non négligeable. 


La routine en langage-machine que 
nous vous proposons dans cet article 
vise précisément à limiter cette perte 
de temps en comparant ‘’automati- 
quement” deux programmes en Ap- 
plesoft chargés en mémoire, afin 
d'en afficher toutes les différences. 

La routine est implantée à partir de 
l'adresse décimale 37500 et ne 
pourra donc être utilisée que lorsque 
la taille totale des deux programmes 
à comparer ne dépasse pas 35K en- 
viron. 


Les étapes de la mise en oeuvre sont 
les suivantes (avec PGI désignant la 
première version chargée en mé- 
moire, et PG2 la seconde) : 


e BLOAD DIF.OBJ 

e LOAD PGI 

e POKE 103,PEEK(175): POKE 
104,PEEK(176) : place le pointeur 
de l'adresse de début de pro- 
gramme à la fin de PG1 pour que 
le chargement de PG2 n'écrase 
pas ce dernier 

e LOAD PG2 

e CALL 37500 


La routine peut afficher les différen- 
ces suivantes : 


1) Ligne numéro N listée seule en 
mode normal : cette ligne existe dans 
PGI mais pas dans PG2. 

2) Ligne numéro N listée seule en 
mode inverse : cette ligne existe dans 
PG2 mais pas dans PGI. 

3) Ligne numéro N listée en mode 
normal, puis listée à nouveau en 
mode inverse : la ligne existe dans 
les deux programmes, mais les ins- 
tructions qu'elle comporte ne sont 
pas strictement identiques dans les 
deux cas. Il suffit ainsi qu’un seul ca- 
ractère soit différent pour provoquer 
l'affichage (nom de variable modifié, 
instruction rajoutée ou supprimée...). 
Chaque fois qu'une ligne a été listée, 
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qu'il s'agisse de PG1 ou de PG2, la 
routine attend la frappe d'un carac- 
tère au clavier avant de continuer la 
comparaison. 


Il est également possible de lister les 
différences sur papier: pour ce faire, 
tapez PR#s (où s désigne le slot de 
l'imprimante) avant CALL 37500. 
Dans ce cas, il n'est bien sûr plus 
possible de répérer l'origine d'une 
ligne isolée par le mode d'affichage 
(normal ou inverse) et vous devrez 
utiliser la liste de l’un des program- 
mes pour la déterminer. Lorsque 
deux lignes de même numéro se sui- 
vent, la première appartient toujours 
à PGI et la seconde à PG2. 


Si la routine ne liste rien, les deux 
programmes sont tout simplement ri- 
goureusement identiques. 

À l'issue de la comparaison, il peut 
arriver qu'un message ‘’SYNTAX 
ERROR" vous soit adressé par le 
système. Cela provient de ce que la 
routine ne rétablit pas tous les poin- 
teurs de programme à une valeur 
correcte avant le retour au BASIC, 
mais il n'y a pas à s'en inquiéter. Si 
vous désirez faire de suite une autre 
analyse, tapez NEW et reprenez le 
processus à partir de LOAD PGI. 
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LISA 1,5 20 TXE  EPZ $1E  ;POINTEUR “FIN DE PROGRAMME" POUR LIST 
21 CD EPZ $EB  ;TYPE DE LIST À EFFECTUER 

IMLLECEECELEECEE EEE ETETET ETES EEESEE, 22 JSR HOME 

2 ;# # 23 LDA 41 3MET TXO AU DEBUT DE PGI 

3 ; COMPARAISON DE DEUX x 24 STA TX0 

4 ;4 PROGRAMMES APPLESOFT # 25 LDA 48 

FRE CODE = DIF.0BJ # 26 STA TX0+] 

6 ;* * 27 JSR 50 MISE À JOUR DE TX! 
HAFLLCILELEEEEE ETES EEEEETTEESEETEETE 28 JSR 51 MISE À JOUR DE TX2 

8 ORG 4927C 29 DEB  LOY #3 

9 0BJ $800 30 LDA (TX0) ,Y ;OCTET HAUT NO LIGNE DANS PGI 

10 TXT  EPZ $67  ;POINTEUR POUR PROGRAMME 2 31 CMP ÇTXT),Y; = OCTET HAUT NO LIGNE DANS P62 ? 
11 HONE  EQU $FC58 32 BNE CO 

12 GET  EQU $FDOC 33 DEY 

13TX0  EPZ $%6 POINTEUR POUR PROGRAMME | 34 LDA (TX0),Y;IDEN POUR OCTET BAS NO LIGNE 

14 INV EPZ $32  ;DRAPEAU POUR INVERSE/NORMAL 35 CHP CTXT),Y 

15 IN EQU $200 ;BUFFER D’ENTREE/CLAVIER 36 BEQ C3 

16 AD EPZ %8  ;SAUW. 2 OCTETS SUIWANT LIGNE LISTEE | 37 BCC CO2 NO INFERIEUR DANS P61 

17 TXP  EPZ $18  ; SAUVEGARDE DE TXT 38 COf  LDA #1 3NO INFERIEUR DANS P62 

18 TX1  EPZ $IA  ;ADRESSE LIGNE SUIVANTE DANS P61 39 STA CD 

19 TX2  EPZ #10  ;ADRESSE LIGNE SUIVANTE DANS P62 40 Ci LDA #$3F  ;MODE "INVERSE" 
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Mere à ue x. =. ù 


QE St Ce CSS D Et DS 


69 ;(S1 LA LIGNE EST FINIE AVANT DANS P62, ON À UN 0 QUI NE SE) 


STA INV 

LDA TX2 POINTEUR FIN DE LIST SUR PG2 
STA TXE 

LDA TX24] 

STA TXE+] 

JMP LIST 

BCS Coi 3NO INFERIEUR DANS PG2 

LDA #2 

STA CD 

LDA TXT SAUVEGARDE DE TXT 

STA TXP 

LDA TXT+] 

STA TXP+] 

LDA TX0 3DEBUT DU "PROGRAMME" À LISTER 
STA TXT EST EN TX0 

LDA TX0+] 

STA TXT+#i 

LDA TXI POINTEUR FIN DE LIST SUR PG 
STA TXE 

LDA TXi4i 

STA TXE+1 

JMP LIST 

INY 

INY 

LDA (TX0) ,7 ; COMPARAISON DES DEUX LIGNES 
CMP (TXT) ,Y AYANT MEME NUMERO 

BNE C8 351 j OCTET EST DIFFERENT =} LIST 
CMP #0 ;FIN LIGNE DANS PGI ? 


70 ;CRETROUVE PAS DANS PG1 ET ON SORT POUR UN LIST DES DEUX) 
71 ;CLIGNES À L'INSTRUCTION 67) 


72 ;(S1 LA LIGNE N’EST PAS FINIE DANS PG2, ON N'ARRIVE MEME PAS) 
73 ;C4 L'INSTRUCTION 68 CAR ON À DANS PGI UN 0 QUI NE SE TROUWE) 


74 ;{PAS DANS PG2 ET ON SORT À L'INSTRUCTION 67) 
75 j(LE TEST SUR P61 SUFFIT DONC POUR VERIFIER QUE LES DEUX) 
76 ;(LIGNES SONT BIEN IDENTIQUES DU PREMIER AU DERNIER OCTET) 
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BNE C4 

LDA TX{ 3PASSE À LIGNE SUIVANTE DANS P6{ ET P62 
STA TX0 

LDA TX1+1 

STA TX0+1 

LDA TX2 

STA TXT 

LDA TX2+41 

STA TXT+1 

JSR 50 

JSR Si 

LDA TX1#1 PGI FINI ? (00 EN TXI ET TX1+#1) 
BNE Cé 

LDA TXI 

BNE Cé 

CNP TX2+1  :PG2 FIN] AUSSI ? 

BNE C5 

CNP TX2 

BNE C5 

LDA 48 REMISE DES POINTEURS EN POSITION "NEW" 
STA TXT+1 ET FIN DE ROUTINE 

STA $B0 

LDA Hi 


112 C7 
113 C8 


116 LIST 
117 LO 


126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 RL 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 RLO 
154 
155 
156 
157 
158 


STA TXT 
LDA #4 
STA $4F 
RTS 

JP C0i 
LDA TX2#1 
BNE C7 
LDA TX2 
BNE C? 
LDA #4 
STA CD 
JMP C2 
JP DEB 
LDA 45 
STA CD 
JMP C2 
LDX #0 
LDA INLIST,X 
STA IN,X 


LDY #0 

LDA (TXE) ,Y 
STA AD 

INY 

LDA (TXE) ,Y 
STA AD+! 
DEY 

TYA 

STA (TXE) ,Ÿ 
INY 

STA (TXE) ,Y 
JSR $0539 
JNP $D444 
LDY #0 

LDA AD 

STA (TXE) ,Ÿ 
INY 

LDA AD+1 
STA (TXE) ,Y 
JSR GET 

LDA #$FF 
STA IN 
LDA CD 

CMP #1 

BNE RLO 

LDA TX2 

STA TXT 

LDA TA2+1 
STA TXT4] 
JSR 51 

JP RO 

CMP #2 

BNE RLI 

LDA TXP 

STA TXT 

LDA TXP+] 
STA TXT+1 


;LIST DE LA FIN DE P62 
PGI PAS FINI - PG62 L’EST-IL ? 


LIST DE LA FIN DE PGI 


COMPARAISON DES LIGNES SUIVANTES 
ANNONCE LIST DE 2 LIGNES DIFFERENTES 


{MET DANS LE BUFFER "IN" LES 
;CODES-ECRAN DE L'INSTRUCTION 
; LIST:CALL 37716 


{SAUVE 2 OCTETS SUIVANT LA LIGNE 
A LISTER (DEBUT LIGNE SUIVANTE) 


:MET 00 APRES LA LIGNE POUR 
3SIMULER UNE FIN DE PROGRAMME 


ROUTINE D’INTERPRETATION DU BUFFER 
SAUT DANS LE BASIC POUR EXECUTION 
;ON EST À L'ADRESSE DECIMALE 37716 
IRESTAURE DEBUT LIGNE SUIVANTE 


DEMANDE FRAPPE AU CLAVIER 
{RETABLIT MODE "NORMAL" 


PASSE À LIGNE SUIVANTE DANS P62 


3RETABLIT TXT POUR PG62 
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139 RL2  LDA TXI  ;PASSE À LIGNE SUIVANTE DANS PGI 177 S0 LDY #0 


3S-P DE MISE À JOUR DE TXI 


160 STA TX0 178 LDA (TX0) ,Y 

16! LDA TX1+1 179 STA TXI 

162 STA TX0+] 180 INY 

163 JSR 50 181 LDA (TX0) ,Y 

164 JNP RO 182 STA TXI+] 

165 RLI CMP #4 183 RTS 

166 BEQ RL2 ;ON EST DANS LE LIST DE LA FIN DE P61 | 184 51 LDY #0 :S-P DE MISE À JOUR DE TX2 
167 CMP 45 185 LDA (TXT) ,Y 

168 BNE RL3 186 STA TX2 

169 LDA #3  ;LA LIGNE DE PGI EST LISTEE 187 INY 

170 STA CD ET ON VA MAINTENANT LISTER 188 LDA (TXT) ,Y 

171 LDA TXP  ;CELLE DE P62 189 STA TX2+1 

172 STA TXT 190 RTS 

173 LDA TAP+] 191 INLIST HEX CCC9D3D4BAC3CICCCCB3B7B7B1B6 
174 STA TXT+] 192 DCM “INT 

175 JMP CI 193 END 


176 RL3  JMP C9 


RECAPITULATION 


927C- 20 58 FC A9 

9280- 01 85 06 A9 08 85 07 20 
9288- AE 93 20 BA 93 A0 03 Bi 
9290- 06 Di 67 DO 1C 88 B1 06 
9298- Di 67 F0 36 90 15 A9 01 
92A0- 85 EB A9 3F 85 32 A5 ÎC 
9248- 85 ÎE AS 1D 85 1F 4C 2F 
9280- 93 B0 EB 49 02 85 EB A5 
92B8- 67 85 18 AS 68 85 19 A5 
92C0- 06 85 47 A5 07 85 68 A5 
92C8- 1A 85 ÎE A5 1B 85 1F 4C 
9200- 2F 93 C8 C8 Bi Dé D1 67 
9208- DO 4E C9 00 DO F5 45 1A 
92E0- 85 06 A5 1B 85 07 A5 1C 


32E LIGNE LISTEE - ON PASSE À LA SUITE 


92E8- 85 47 A5 1D 85 68 20 AE 
92F0- 93 20 BA 93 A5 1B DO ÏE 
92F8- A5 1A 00 IA C5 1D DO 13 
9300- C5 1C DO OF A9 08 85 68 
9308- 85 BO A9 01 85 67 49 04 
9310- 85 AF 40 4C 9E 92 A5 1D 
9318- DO 0B AS 1C DO 07 A9 04 
9320- 85 EB 4C B7 92 4C 8D 92 
9328- A9 05 85 EB 4C B7 92 A2 
9330- 00 BD Cé 93 9D 00 02 E8 
9338- EQ 0E D0 F5 A0 00 BI ÎE 
9340- 85 08 C8 Bi ÎE 85 09 88 
9348- 98 91 1E C8 91 E 20 39 
9350- DS 4C 44 D4 A0 00 A5 08 
9358- 91 1E C8 A5 09 91 LE 20 


9360- OC FD A9 FF 85 32 AS EB 
9368- C9 0j DO DE A5 1C 85 67 
9370- A5 1D 85 68 20 BA 93 4€ 
9378- F4 92 C9 02 DO fé A5 18 
9380- 85 67 A5 19 85 68 A5 IA 
9388- 85 06 AS 1B 85 07 20 AE 
9390- 93 4C F4 92 C9 04 FO EE 
9398- C9 05 DO OF A9 03 85 EB 
9340- A5 18 85 67 AS 19 85 68 
9348- 4C A2 92 4C DE 92 A0 00 
9380- B1 06 85 IA C8 B1 06 85 
93B8- 18 60 AD 00 Bi 67 85 IC 
93C0- C8 B1 47 85 1D 60 CC C? 
93C8- D3 D4 BA C3 Ci CC CC B3 
9300- B7 B7 Bi Bé 


Accélération de programmes en Pascal 


Pour accélérer vos programmes Pas- 
cal, vous pouvez utiliser des procédu- 
res intrinsèques relativement mécon- 
nues telles que FILLCHAR et 
SIZEOF. 


La procédure FILLCHAR permet de 
remplir la variable DESTINATION 
sur une longueur LONGUEUR avec 
le caractère CARACTERE: elle est 
définie par : 


FILLCHAR (DESTINATION. LON- 
GUEUR, CARACTERE); 


DESTINATION est de type quelcon- 
que (sauf fichier); ce peut être sim- 
plement un tableau, un enregistre- 
ment ou un champ dans un 
enregistrement, s'il s'agit d'un ta- 
bleau ou d'une chaîne de caractères, 
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DESTINATION peut être indicée. 
FILLCHAR (tableau! 51!,50,°7') rem- 
plit le tableau de Z de l'indice 51 à 
100. 

Si l'on ne connaît pas la taille exacte 
de la variable DESTINATION et que 
l'on désire la remplir complètement, 
on utilisera avec avantage la fonction 
SIZEOF qui retourne la longueur 
d'une variable où d'un type (sauf fi- 


chier). Ainsi, FILL- 
CHAR(ENREGISTREMENT, SI- 
ZEOF(ENREGISTREMENT), 


CHR(0)}) remplit la variable ENRE- 
GISTREMENT de zéros. Le remplis- 
sage d'un enregistrement par 
CHR(O) correspond à ‘ pour les 
STRING. à 0 pour les INTEGER et à 
FALSE pour les BOOLEAN. d'où 
l'utilité de FILLCHAR pour obtenir 


rapidement et sans effort un enregis- 
trement vierge. 


Ce procédé est très rapide pour rem- 
plir de grands tableaux. Vous pourrez 
faire un essai en remplaçant, dans le 
programme saisie  multipage du 
Pom's 9, dans la procédure INIT: 


FOR I: = 1 TO MAXLIGTB DO 
FOR J := 1 TO MAXCOLTB DO 
TB!J!:= 0 


par : FILL- 
CHAR(TB.SIZEOF(TB).CHR(0)): 


Vous vous apercevrez que vous 
n'avez pratiquement plus le temps de 
lire ‘Patience, RAZ du tableau”! At- 
tention cependant: le système 
n'exerce aucun contrôle: vérifiez bien 
les limites de remplissage … 
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L'ORDINATEUR 


INDIVIDUEL 


Vous y trouverez: 

e l'actualité et les tendances de l'informatique individuelle 
e les bancs d'essais des principaux matériels e des panoramas 
et des tests comparatifs e le point des grandes manifestations 
internationales e des articles d'initiation e des synthèses 

e des programmes des interviews exemplaires" 

e des conseils e des idées e des astuces 


L'ORDINATEUR INDIVIDUEL, chez votre marchand de journaux 





Recueil No. 2 de Pom's - Editions 
MEV et Editions du PSI - 215 pages 
- 120 FF. 


Voici enfin le second recueil de 
Pom's, couvrant les numéros 5 à &. 
Ces numéros ont déjà été retirés. 
mais le 5 et le 6 se trouvent à nou- 
veau en rupture de stock. 


Nous souhaitons à ce second recueil 
autant de succès qu'au premier. 
Avec les disquettes d’accompagne- 
ment, vous aurez plein de program- 
mes, dont les leaders”: Haïfa, le 
HELLO complet, la programmation 
facilitée, le moniteur étendu, la cryp- 
tographie, de multiples utilitaires et 
programmes graphiques, Autant 
de programmes qui seraient normale- 
ment chacun vendus, à eux seuls, 
pour le prix du recueil avec ses dis- 
quettes. Bonne lecture ! 


Le recueil No. 2 sera disponible à la 
mi-avril. 


Techniques .de programmation 
des jeux, de David Lévy. Editions 
du PSI, 245 pages, 102 FF. 


Le livre donne une bonne idée des 
principes de programmation d'un 
grand nombre de jeux de damier et 
de cartes. Il est dommage qu'il ne 
présente pas le moindre exemple de 
programme et seulement quelques 
rares organigrammes partiels. Néan- 
moins, un lecteur assez fort en infor- 
matique pourra en tirer profit, surtout 
s'il a déjà un peu travaillé sur le 
sujet. 


Ce qui est par contre regrettable, 
c'est l'incroyable négligence dans la 
présentation de l'ouvrage: pas de 
table des matières, fautes d'impres- 


sion nombreuses et parfois gênantes, 
bibliographies omises bien qu'annon- 
cées dans le texte. La question se 
pose : y a-t-il un correcteur dans la 
maison ? 


Multiplan sur Apple, par Hervé 
Thiriez, Editions du PSI 


Dois-je ne pas parler de ce livre puis- 
que l’auteur participe à cette revue ? 
J'ai aussi un devoir d'information à 
votre égard: j'en parlerai donc, avant 
eu la chance de pouvoir analyser le 
manuscrit. 


Il s’agit là d'un ouvrage ayant deux 
buts : une introduction progressive et 
cependant approfondie à Multiplan, 
et la présentation de tableaux types 
et d'astuces d'utilisation nombreuses 
qu'ignorent parfois des utilisateurs ré- 
guliers du programme. Ces deux 
buts sont manifestement atteints. 
Nous conseillons cet ouvrage à tous 
les utilisateurs de Multiplan : même 
les habitués y apprendront des trucs. 


Comme dans le cas de ‘Visicalc sur 
Apple”, une disquette d'accompa- 
gnement est proposée en option. 
Cette disquette se vendra même 
toute seule, car elle contient un pro- 
gramme permettant d'obtenir une 
liste détaillée descriptive de tout ta- 
bleau, comportant tous les renseigne- 
ments y compris les formats, les 
zones nommées”, les indications de 
recopie, … 


Guide de l’Apple, tome 3, par Be- 
noît de Merly - Edimicro - 180 
pages, 79 FF. 


On retrouve le même objectif que 
dans 20 progiciels-outils.….” présenté 
dans le Pom's 10. Nous avons ici 


Bibliographie 


Alexandre Duback 


droit à l'analyse de cinq programmes 
de traitement de texte (surtout Ap- 
plewriter et Wordstar), deux tableurs, 
sept gestionnaires de fichiers (trois en 
détail}, deux logiciels de graphiques, 
et 18 pages sur la télématique. 


Comme nous l'avons dit dans le nu- 
méro 10 de Pom's, ce type d'analyse 
de logiciel nous semble être ou trop 
ou trop peu, d'autant que, dans ce 
cas-ci, plusieurs logiciels sont déjà 
fort connus: Applewriter, PFS, CX,. 
Visicalc, Multiplan, … 


Disk, files and printers for the 
Apple II, de Brian D. et George H. 
Blackwood, Prentice Hall Internatio- 
nal, 66 Wood Lane End, Hemel 
Hempstead, Herts HP2  4RG. 
Royaume Uni - 260 pages, $20.75. 


I s’agit là d'un ouvrage clair et facile- 
ment lisible sur le DOS, avec un cha- 
pitre bien fait sur l’utilisation de l'im- 
primante où l'on explique comment 
éviter le TAB au-delà de la quaran- 
tième colonne. Des programmes de 
démonstration accompagnés d'orga- 
nigrammes complètent la présenta- 
tion. Pour les débutants anglopho- 
nes. 


Programming the Apple in Basic, 
de Paul Tebbe, Prentice Hall, 182 
pages, $22.05. 


Un bon livre d'initiation au Basic sur 
Apple, v compris à l’utilisation des fi- 
chiers.' Avantages : clarté et pédago- 
gie. Bien entendu, il faut pouvoir lire 
l'anglais. Un regret : le livre ne pré- 
vient pas des limites ou bugs de l'Ap- 
ple : voir à ce sujet les remarques sur 
l'APPEND et le RENUMBER dans le 
recueil No. 1 de Pom's. & 


L'augmentation du rythme de parution requiert un renforcement de notre 
équipe. Pom's recherche un collaborateur avec un parfaite maîtrise de l'Apple 
Il et //e, capable de faire de l’assembleur les veux fermés, connaissant les 
adresses de l'Apple aussi bien que celle de sa petite amie, décontracté et sym- 
pathique. Il faudrait en outre qu'il habite Paris ou le Sud-Ouest de la région 
parisienne (nous sommes à Versailles). S'il est par ailleurs capable d'écrire clai- 


rement et sans ‘’fôtes d'ortografe”, c’est encore mieux, mais pas indispensable. 


Nous sommes ouverts 


= 


a 


toute formule entre un mi-temps et un temps plein. 


Avantages : travail passionnant avec des gens sympathiques (mais oui ..), dans 
des conditions totalement conviviales : possibilité de travailler en bonne partie 
chez soi, même la nuit et les week-ends. Nous cherchons aussi un responsable 
comptable et administratif sérieux, ordonné au point de la méticulosité : il n’est 
en effet pas question de perdre vos précieux bulletins d'abonnement. 
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Datalife 





DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 


BETETE 


5 Verbatim. 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4". 


- 5 1/4!" en 48 et 96 TPI, simple et double face. 


BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 
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Promenade au dJardin 
des Hespérides 


Le cru 83 de la Pomme d'Or est 
composé de quatre lauréats, récom- 
pensés par des Lisa (juste avant la 
baisse des prix...) : 


e Michel Marquis (un auteur de 
Pom's), avec le Kit PIA, relie son 
Apple à tout son appartement 
(comment fait-il pour se raser sans 
griller ses ROMSs ?). 


e Roland Moreno, François Grieu et 
Frédéric Lévy communiquent avec 
la carte Apple-Tell (voir plus loin). 


e Claude Collin, de Contrôle X, pro- 
pose CX Système (analysé dans le 
Pom's 10, après l'étude de CX 
Multigestion dans le Pom's 5). 


e Jean-Luc Besnard et Patrick 
Choisy, avec la comptabilité Héra- 
klès, ”s'interfacent” avec Visicalc, 
Applewriter, Business Graphics, 
Omnis.…. 


Le ‘Goncourt des Logiciels” permet- 
tra-t-il une meilleure protection juridi- 
que des oeuvres des auteurs de logi- 
ciels ? 


Vous avez dit compati- 
ble ? 


LE.F. propose un Apple //e portable 
baptisé STADU P : Système de Trai- 
tement et d'Acquisition de Données 
Universel Portable. On vy trouve, 
dans un coffret robuste, un Apple //e 
avec un lecteur de disquettes 140 K 
intégré, un écran 7 pouces et un cla- 
vier ASCII abattant, le tout pour 
19000 F HT. En option, on peut dis- 
poser dans ce même coffret d'une 
imprimante/table traçante de 115 
mm (5000 F HT interface comprise), 
avec 16 tailles de caractères, 1 à 80 
caractères par ligne, 4 sens d'écri- 
ture, 4 couleurs, 16 types de pointil- 
lés, tracé des axes X-Y. déplace- 
ments absolus ou relatifs. Il y a aussi 
de la place pour deux lecteurs 140 K 
en demi-hauteur, ou un lecteur 5 
“abus 1 MO ou un disque dur 5 
O. 


Toutes les cartes Apple peuvent être 
montées dans les connecteurs du 
système. 


Au rayon des O.S. 


Vous avez bien sûr reconnu les Ope- 
rating Systems et non les travailleurs 
à la chaîne (fût-ce une chaîne de 
traitement). 
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Micro-informations 


Prodos va donner un coup de fouet 
à votre Apple Il. Ce nouvel O.S. de- 
vrait être plus rapide, laisser plus de 
place en mémoire en se logeant dans 
la carte langage de l'Apple II+ ou 
dans les 16 K supplémentaires de 
l'Apple //e, et surtout ne plus limiter 
les volumes aux sempiternels 140 K 
du DOS 3.3. 


Il sera facile d'utiliser un disque dur 
ou des disquettes de plus grande ca- 
pacité. La compatibilité avec l'Apple 
Ill sera grandement améliorée. D'au- 
tres améliorations de performances 
sont attendues grâce à Prodos. Je 
cite Apple : 


”.. des applications avancées comme 
les réseaux, les graphiques profes- 
sionnels, et la gestion de bases de 
données évoluées”. 


Chez le disquaire 


Autour d'Apple on parle précisément 
de la prochaine disponibilité du dis- 
que dur Profile sur Apple Il. grâce à 
l'interface Apple Il - Profile (ce serait 
pour avril). Il est prévu que ce disque 
soit partageable entre Prodos et Pas- 
cal (mais pas CP/M..). Il est aussi 
question de disquettes plus musclées 
(capacité double des 5 pouces 1/4 
actuelles). 


Datalog lance le Symbrfile, disque dur 
5 pouces 1/4, technologie Winches- 
ter, pour Apple Il et IL. Il existe en 
5.25, 10.5, 21 et 42 MO. 


La guerre du floppy aura-t-elle lieu ? 
5 pouces 1/4 traditionnels ? 5 pouces 
1/4 demi-hauteur ? 3 pouces? 3 
pouces 1/2? Les mini-formats conti- 
nuent leur développement. Par 
exemple, Hitachi annonce le 3 
pouces MD3, 500 KO, à moins de 
3000 F, avec contrôleur (standard 
Apple). Mais les disquettes coûtent 
relativement cher : 65 F pièce. Après 
expérimentation, un banc d'essai 
pourra figurer dans un prochain nu- 
méro de Pom's (Acer Micro). 


Apple, de son côté, a adopté le 3 
pouces 1/2 au standard Sony. qui 
équipe Mac, et maintenant Lisa. In- 
discrétion. il devrait être proposé 
sur la “ligne 6502" vers la fin de 
l'année. 


BIMP annonce une disquette 5 
pouces 1/4 de 1 MO formaté (1,6 
MO non formaté), compatible 
MEM.DOS, DOS 3.3, CP/M et Pas- 
cal. Pour 13000 F TTC. 


Guv Lapautre 
(assisté de J.-F. Duvivier) 


Impression 


Les cartes “buffer” d'imprimante de- 
viennent monnaie courante. Pentaso- 
nic propose 2 modèles : 16 K et 128 
K, aux prix respectifs de 2310 F et 
3970 F. De son côté, MID propose 
64 K pour 2200 F, tandis qu'il en 
coûte 1750 F pour avoir 16 K chez 
Acer Micro. 


Chez Apple, la nouvelle Imagewriter 
remplace, sur la gamme 68000, l'ac- 
tuelle Dot Matrix. Elle est également 
proposée sur la gamme 6502. 


Une naissance aussi chez Seikosha : 
dans la famille GP, la toute petite GP 
50 À, graphique, pour 1250 F. 


Nous n'avons pas encore pu essayer 
la nouvelle Canon couleur, ni la TRS 
80 CGP 220 sept couleurs, toutes 
deux à jet d'encre, et dont on dit 
merveilles. 


Signalons en vrac la FX100, haut de 
gamme Epson, la Gemini 10 X et la 
Delta 10 de Henggstler. Facit propose 
une haut de gamme matricielle de 
qualité courrier, la 4570 (2 versions à 
40800 et 33700 F) et le “petit” mo- 
dèle 4512, avec de bonnes fonction- 
nalités graphiques (pour 10080 F 
TTC). 


Communiquons 


On peut, en particulier, communi- 
quer avec Apple-Tell (voir ci-dessus 
la Pomme d'Or) qui offre pour 5900 
F: AT : 


®e un modem avec cinq vitesses de 
communication (half duplex en 
600 et 1200 bauds et full-duplex 
en 300 bauds - canal de retour 5 
et 75 bauds (norme Minitel) en 
1200 bauds - six modes de fonc- 
tionnement CCITT (normes fran- 
çaises et européennes), cinq 
modes de fonctionnement "Bell” 
(normes US), une grande variété 
de formats et des boucles de jonc- 
tion analogique et digitale (types 2 
et 3) permettant le test de la carte, 
de la connexion au réseau, à la 
ligne téléphonique et à un modem 
distant. 


®e une interface réseau avec circuit 
de numérotation décimale pro- 
grammable et détection de sonne- 
rie selon les formats US et euro- 
péens. 


e un générateur Vidéotext : buffer 


de 4 Ko, écran de 2440, gestion 
complète du protocole Télétel. 








® une interface vidéo avec sortie sur 
prise Péritel, haute qualité couleur, 
N'B Vidéotext et N/B Apple stan- 
dard avec commutation automati- 
que. 


e le firmware” : interface Apple, 
valeurs par défaut en mémoire 
EPROM permettant de mettre jus- 
qu'à 256 critères différents à la 
mise sous tension. 


e une disquette d'accompagnement 
et une documentation claire ren- 
dant ces possibilités accessibles au 
non-spécialiste et contenant une 
émulation du programme terminal 
Minitel. 


Apple Bus se précise... pour fin 84. 
16 matériels Apple (tous sont accep- 
tés), partage de ressources (impri- 
mante, disque de grande capa- 
cité..…..), 250 Kbauds sur 300 mètres. 
Les movens de connexion sont déja 
intégrés dans Mac et Lisa. 


Dialogue 


Pour “parler” à votre Apple Il, le cla- 
vier d’origine va devenir un jour 
aussi démodé que l’est le DOS 3.3! 


Si vous tenez à la solution clavier, un 
clavier avec bloc numérique séparé 
vous coûtera environ 1000 F. 


Touchez votre écran avec un crayon 
lumineux. Cette baguette magique, 
avec son logiciel, se trouve aux envi- 
rons de 5000 F. 


Plus rustiques, mais aussi beaucoup 
moins chers, les ‘joysticks” - disons 
manches à balai. Il en existe de nom- 
breux modèles entre 200 et 800 F. 


Vous pouvez : préférer un système 
plus sophistiqué comme le Robo 
1000 de Sideg (ensemble levier de 
commande et logiciel de dessin as- 
sisté par ordinateur), mais pour 7940 
F TIC. 


Une mini tablette graphique vous 
permet aussi de communiquer aisé- 
ment avec votre Apple favori. N'en 
n'attendez pas des miracles de préci- 
sion, mais elle ne coûte que 1000 F 
environ. Un peu plus ambitieuse, 
une série Koala Pad, à partir de 
1300 F chez SPID Micro. G31 pro- 
pose un système original : Graphis- 
cop, fonctionnant avec un crayon à 
bille. et quand même un petit appa- 
reil (990 F TTC). 


Enfin, par une astucieuse, mais coû- 
teuse adaptation, on commence à 
pouvoir transformer son écran banal 
en écran tactile. 


Tout ceci, bien entendu, en atten- 
dant la désormais traditionnelle souris 
… annoncée par Apple. Je cite : 

"inaugurée avec Lisa, la généralisa- 


tion de la technologie graphique 
souris à l’ensemble des systèmes 


Apple...”. Indiscrétion : ce sérait pour 
avril, et il en coûterait moins de 1000 
F, interface et logiciel inclus. 


Si vous préférez des échanges par 
capteurs et actionneurs, Créatic vous 
propose un système d'interfaçage 
(CM 1000) avec nombreuses cartes 
d'interface analogiques et numéri- 
ques. 1600 F TTC le coffret, 600 à 
900 F par carte, 350 F pour un cap- 
teur. 


Et les logiciels ? 


La tendance forte est la francisation 
des logiciels généraux Anglo-Saxons. 
Les premières réalisations étaient es- 
sentiellement des traductions de la 
documentation. De plus en plus au- 
jourd'hui, c'est le logiciel lui-même 
qui est francisé. 


Un bon exemple est donné par 
Apple Writer IL Il montre un effort 
réel: tous les messages sont rédigés 
en Français; il montre aussi une li- 
mite : les mnémoniques de 
commande n'ont pas changé, et 'L’ 
veut toujours dire charger”... 


Un nouveau-né dans la famille PFS : 
PFS Write, traitement de texte pou- 
vant exploiter les fichiers, tableaux et 
graphiques de ses aînés. Il nous a été 
présenté à la boutique Galilée Infor- 
matique. 


Toujours en traitement de texte, Mi- 
cropro diffuse Wordstar 3.3 (déja 
présent au SICOB), avec fusion de 
fichier et utilisation rationnelle de 
touches de fonction. Il existe pour 
Apple Il et Il et pourra prochaine- 
ment être associé à Starindex (géné- 
rateur de table des matières) et Star- 
bust ( générateur de menus). 


En version 2, le traitement de texte 
Epistole de Micro Assistance est doté 
de possibilités de calcul. Il fonctionne 
sur Apple Il et Apple //e. De son 
côté, Gutenberg de Micromation Li- 
mited (analyse détaillée dans ce nu- 
méro) permet d'utiliser, de compo- 
ser, des graphismes originaux tels 
que symboles mathématiques, chimi- 
ques, électroniques, etc. 


En gestion de fichier, Logifiche 2 est 
développé par la CFNI. Nombreuses 
possibilités de calcul, de traitements 
automatiques, d'éditions et de re- 
cherche multicritères (1420 F, pour 
Apple Il et //e). 


Cêté graphique, Charts Unlimited 
permet de créer des schémas, graphi- 
ques, organigrammes, plans. Simple 
à utiliser, facile à apprendre, ce logi- 
ciel n’est à notre connaissance pas 
encore commercialisé en France. 
Produit par Graphware, distribué en 
Europe par Transatlantic Software. 
Prix US : 195 $. Une analyse détail- 
lée sera proposée dans le prochain 
numéro de Pom's. 


B.LP. distribue de son côté plusieurs 
programmes graphiques : Koalapad 
(moins de 1500 F TTC pour logiciel 
+ tablette graphique) est une ‘ar- 
doise magique” pour dessiner, décal- 
quer, colorier, de façon simple mais 
cependant riche et variée. TGS 
(compatible avec le précédent, 1695 
F) est un bon logiciel pour la création 
de dessins animés. 


À quand un ‘Lotus 1 2 3” ou un 
"Visi On” sur Apple Il ? Sans doute 
aussi pour avril, sous forme d’un lo- 
giciel intégré (gestion de fichier +ta- 
bleur + traitement de texte) 
commandé par souris, exigeant 64 K 
supplémentaires. Ce logiciel sera pro- 
posé par Apple sur la ligne 6502. 


Côté Apple //, SANE (Standard 
Apple Numeric Environment) permet 
des traitements numériques précis. 
Apple /// Pascal Toolkit est un nouvel 
outil d'aide au développement de 
programmes. 


Une initiative intéressante d'Axone : 
l'établissement d'un catalogue” de 
logiciels professionnels dont la vente 
est assortie d’une formation. Dans ce 
catalogue, pour Apple II, on relève : 


- Décisionnel graphique de Adde 
Marketing (analyse dans le précédent 
numéro de Pom's). 

- Incredible Jack de Business Solu- 
tions (certains font la fine bouche, 
mais c'est intéressant pour qui n'a 
pas d’ambitions démesurées). 


Où vont les logiciels ? 


Selon une enquête de Computer 
Merchandising International (janvier 
84), les best sellers” dépendent lar- 
gement du pays. Par exemple, l’utili- 
sateur Allemand d'Apple porte essen- 
tiellement son choix sur Muitiplan, 
Wordstar et Visicalc. L'Anglais est 
sensible au charme de Multiplan et 
Wordstar (comme son collègue ger- 
main) mais aussi d'Applewriter et 
d'Omnis. Le Français papillonne de 
Multiplan à Visicalc, de Dbase II à 
CX Multigestion, PFS et Omnis, sans 
négliger Applewriter. 


De source Apple généralement bien 
informée, l'évolution des logiciels gé- 
néraux se dessine de la façon sui- 
vante : 


e Pour les logiciels scientifiques et 
techniques, accent sur le DAO 
(dessin assisté par ordinateur). le 
traitement de texte avec caractères 
spéciaux (voir notre analyse de 
Gutenberg), et l'interfaçage avec 
les logiciels graphiques. 

e Côté gestion, le graphique souris, 
le pont des logiciels intégrés, un 
effort considérable sur documenta- 
tion et formation. 


e L'éducation cherche des logiciels 
d'EAO commodes (Logo, Super- 
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pilot, EVA), a besoin de produits 
français originaux et s'oriente vers 
la variété du dialogue : vidéo-dis- 
que, tablette graphique, joystick... 

e L'utilisateur ‘familial’ recherche 
quelques produits simples et bon 
marché : un traitement de texte à 
500 F, une collection de modèles 
financiers à 400 F et un logiciel 
graphique couleur à 500 F {plus 
des jeux et des programmes édu- 
catifs). 


À signaler qu'Apple, en concertation 
avec la Datar, a choisi la ville de 
Metz pour installer son centre fran- 
çais de développement et d'adapta- 
tion de logiciels (ouverture premier 
semestre 1984). 


Où faire son marché ? 


Une nouvelle boutique lancée à 
grand renfort de publicité : le Multis- 
tore de Hachette, récemment ouvert 
à l'Opéra. Micro-ordinateurs, calcu- 
lettes, librairie, vidéo et son... J'y ai 
vu un Apple Il avec un lecteur de 
disquettes et un écran N. et B., ni 
plus ni moins bien traité que la ving- 
taine de modèles exposés. La pro- 
grammathèque est bien fournie en 
logiciels de jeux, mais semble beau- 
coup plus discrète sur les logiciels 
professionnels. 


Chez International Computer, des 
services personnalisés aux acheteurs 
de micros (dont Apple): extension 
de garantie à 2 ans renouvelables, 
service de maintenance sur place 
(Paris et couronne), livraison à domi- 
cile des consommables. 


Pentasonic propose un dépannage 
’immédiat” ou le prêt d'un matériel 
équivalent, ainsi qu'une formule 
d'essai de logiciel à domicile. 


JCR pratique une autre formule : le 
“libre-service” du logiciel. 


Micro Case se pose en spécialiste de 
la boutique d'occasions sélection- 
nées. 


Adresses 


Acer Micro - 42 rue de Chabrol - 
75010 Paris - Tél 770.28.31 

Adde Marketing - 27 rue des 
Vignes - 75016 Paris - Tél 527.90.17 
Axone - Tour Neptune - 92086 
Paris La Défense - Tél 773.63.64 
BIMP - 20 rue Servient - 69003 
Lyon - Tél (7)860.84.27 

BIP - 22 rue Joseph Dijon - 
Paris - Tél 255.44.63 
Business Solutions - 60 East Main 
street - Kings park - Middletown - 
Ohio 45042 - USA 

Controle X - Tour Maine-Montpar- 


75015 


nasse - 33 avenue du Maine - 35755 
Paris Cedex 15 - Tél 538.98.87 
Datalog - 87 rue Lemercier - 75017 
Paris - Tél 228.14.18 

G31I - 5 passage Courtois - 75011 
Paris 

Galilée Informatique - 45 rue Ga- 
liée - 75116 Paris - Tél 723.33.30 
IEF - 228 rue Lecourbe - 75015 
Paris - Tél 828.06.01 

International Computer - 29 rue 
de Clichy 75009 Paris - Tél 
285.24.55 

JCR - 58 rue Notre-Dame de Lo- 
rette - 75009 Paris - Tél 282.19.80 
Micro-Assistance - 66 rue Casta- 
gnarvy - 75015 Paris - Tél 530.05.28 
Micro Case - 46 rue de La Roche- 
foucault 75009 Paris - Tél 
874.05.20 

MID - 51 bis avenue de la Républi- 
que - 75011 Paris - Tél 357.83.20 - 
et, à partir de mars, nouvelle adresse 
: 96 boulevard Richard Lenoir - 
75011 Paris - Tél sans changement 
Pentasonic - 5 rue Maurice Bourdet 
- 75016 Paris - Tél 336.26.05 

Sideg - 170 rue Saint Charles - 
75015 Paris - Tél 557.79.12 

SPID Micro - 39 rue Victor-Massé - 
75009 Paris - Tél 281.20.02 
Transatlantic Software - Branch 
Lotspeich - PO box 29561 - Cincin- 
nati - Ohio 45229 - USA = 





Un ”type-ahead” en Applesoft 


Ceux d'entre vous qui ont pratiqué 
Visicalc ou le Pascal Apple ont sans 
doute remarqué que, quand ils ta- 
pent des touches pendant que la ma- 
chine réfléchit”, ces touches sont 
prises’ en considération. Nous vou- 
lons prouver dans ce petit article que 
la même chose est possible en Ap- 
plesoft. 


Premier problème : 
stocker les touches 


Il s'agit de récupérer le plus rapide- 
ment possible les touches enfoncées 
et de les stocker dans une table. 
Pour cela, il faut opérer un ‘aiguil- 
lage” dans l'interprétation des pro- 
grammes Applesoft. Comme ce lan- 
gage est généralement en ROM, le 
plus commode est de modifier sa 
seule routine en RAM, à savoir 
CHRGET : 
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00B1-E6 B8 CHRGET INC TXTPTR 
00B3-D0 02 BNE CHRGOT 
00B5-E6 B9 INC TXTPTR+1 
00B7-AD YY XX CHRGOT LDA 
SXXYY 

00BA-C9 3A CMP #': 

00BC-BO OA BCS FIN 

OOBE-C9 20 CMP #' ” 

00C0-F0 EF BEQ CHRGET 
00C2-38 SEC 

00C3-E9 30 SBC #'0' 

00C5-38 SEC 

00C6-E9 DO SBC #$D0 

00C8-60 FIN RTS 


Cette routine, qui est un modèle 
d'astuce, incrémente TXTPTR ($B8- 
B9) et charge l'accumulateur A avec 
TXTPTR. De plus, Z est mis à 1 si A 
est ’:” ou une fin de ligne ($3A ou 
$00). Et C est mis à O si À est un 
nombre ASCII ("0” à 9”). 


Ce que nous allons faire, c'est mettre 
un ’aiguillage” JMP AHEAD au 
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début de CHRGET en direction de la 
routine AHEAD qui teste si le clavier 
est enfoncé et, le cas échéant, stocke 
la touche dans une table (excep- 
tions : CTRL-X annule le buffer de 
stockage des touches: CTRL-C fait 
de même, mais ne remet pas le cla- 
vier à zéro, afin de laisser interrom- 
pre éventuellement le programme). A 
la fin de cette routine, on incrémente 
TXTPTR et on saute à CHRGOT. 
Quand la table de stockage est 
pleine, chaque fois qu'on ajoute une 
touche supplémentaire, la touche la 
plus ancienne est oubliée” faute de 
place. 


NB - Les spécialistes auront remar- 
qué que le logiciel MEM/DOS lui 
aussi, pour permettre ses comman- 
des LET.., a besoin d'utiliser un ai- 
guillage dans CHRGET. Contraire- 
ment à ce que l’on pourrait croire, ce 
détour dans une routine très fré- 





quemment utilisée comme CHRGET 
ralentit très peu le programme. 


Second problème : 
récupérer les touches 


Cette fois-ci, on fait un ‘’aiguillage” 
dans la routine d'entrée de caractè- 
res. On récupère l'adresse de cette 
routine en $AASS5-AA56 ($6A55- 
6A56 pour un 32K), où on la rem- 
place par l'adresse de notre routine 
de récupération du “type ahead”. 
Dans cette routine, si la table de sto- 
ckage est vide, on saute à la routine 
d'entrée de caractères. Sinon, on ré- 
cupère une touche de la zone de sto- 
ckage. 


Attention: le DOS ne doit pas 
avoir été déplacé sur la carte lan- 
gage. 

NB : on ne peut pas utiliser $38-39 
au lieu de $AASS5-AA56. dans le cas 
d'un aiguillage, comme on le fait 
dans le cas de la reprogrammation 
de la sortie de caractères. 





Gestion de la table de 
stockage 


Cette table est située à la fin de la 
toutine. Elle est de type FIFO (first 
in-first out: premier entré-premier 
sorti), à différencier d'une pile, de 
tupe LIFO (last in-first out: dernier 
entré-premier sorti). On utilise pour 
cela 2 pointeurs, qui se déplacent de 
façon circulaire dans la table: s'ils 
débordent à droite, ils reviennent à 
gauche. Le pointeur DEBUT, comme 
son nom l'indique, représente le 
début du stockage, et le pointeur FIN 
représente la position faisant suite à 
la fin du stockage. Par conséquent, 
quand ces pointeurs sont égaux, il 
n'y a pas de touches stockées. Enfin, 
on se doute que l'adressage des va- 
leurs contenues dans la table se fait 
par indexation avec ces deux poin- 
teurs. Par conséquent, la table ne 
” peut avoir plus de 256 caractères. 


Utilisation et limitations 


Ce programme peut être assemblé 
n'importe où et n'utilise aucune mé- 
moire en dehors de lui-même. Nous 
fournissons une version assemblée à 
l'adresse 768 ($300) avec une table 
de 60 caractères. 


Pour le connecter, il suffit de le 
BRUNher ou de faire un BLOAD et 
CALL 768. Pour le déconnecter, il 
suffit de reprogrammer la routine 
d'entrée de caractères, ou de faire un 
PRINT CHRS$(4)"'IN#0", ou encore 
d'appuyer sur RESET. En fait, on ne 
déconnecte que la récupération du 
type ahead”, et non le stockage des 
touches qui continue, mais reste 
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LISA 2.5 


Î SERGE FERERERRNREEX 


2 ;# # 
3 3% TYPE AHEAD EN APPLESOFT # 
4 ;# # 
S ;# (C) O0. HERZ POUR PON'S x 
6 :# # 
VALLEE TT ECEETEEEET EEE ES 
8; 

9 RG $300 

10 0BJ $300 


ADRESSES UTILISEES 


Employons bien les BOOLEANS 


On lit trop souvent dans les program- 
mes Pascal des lignes telles que : 

IF X=1 THEN BON := TRUE ELSE 
BON :=FALSE 

directement dérivées du BASIC. 


Ce type de ligne s'écrit plus simple- 
ment en Pascal avec : 


BON := X = 1: 


14 CHRGET EP2 $B1 {LECTURE D'UN OCTET DU PROGRAMME 
15 CHRGOT EPZ $B7 ;IDEM SANS INCREMENT DE TXTPTR 
16 TXTPTR  EPZ $B8 POINTEUR DU PROGRAMME 
17 KBD EQU $C000 CLAVIER 

18 KBDSTRB EQU $C010 RAZ CLAVIER 

19 DOSKSUL EQU $AAS5 3$6A55 POUR 32XK 

20 ; 

21 ;  AIGUILLAGE DE CHRGET 

22 ; 

23 LDA 484€ ;JMP AHEAD EN $Bi 

24 STA CHRGET 

25 LDA HAHEAD 

26 STA CHRGET+1 

27 LDA /AHEAD 

28 STA CHRGET+2 

29 ; 

30 ;  AIGUILLAGE ENTREE CARACTERES 

31 ; 

32 LDA DOSKSUL ;ON STOCKE L'ANCIEN KSUL 
33 STA ANCIEN+1 

34 LDA DOSKSHL +1 

35 STA ANCIEN+2 

36 LDA #RECUP AIGUILLAGE DU KSWL 
37 STA DOSKSUL 

38 LDA /RECUP 

39 STA DOSKSUL:1 

40 LDA FIN 

41 STA DEBUT 

42 RTS 

43 ; 

44 ;  REMPLISSAGE DU TYPE AHEAD 

45 ; 

4é AHEAD  LDA KBD {TOUCHE ENFONCEE ? 
47 BPL }f 

48 CMP 483 3CTRL-C 

49 BEQ }4 

50 BIT KBDSTRB 

sl CMP #498 ÿCTRL-X 

52 BNE )3 

53 ‘4 LDA FIN 3ON ANNULE LE BUFFER 
54 STA DEBUT 

39 JP )1 


Pom's n° 11 


6 ‘3 STX STOCKEX 


57 LOX FIN 
58 STA TABLE X 
59 JSR INCRX 
60 STX FIN 

gi CPX DEBUT 
62 BNE )2 

63 JSR INCRX 
44 STX DEBUT 
45 “2 LOX STOCKEX 
66 “1 INC TXTPTR 
47 BNE )0 

68 INC TXTPTR4I 


69 “0 JMP CHRGOT 


;0N STOCKE LA TOUCHE 


3BUFFER PLEIN? 


;CODE DU DEBUT DE CHRGET ($B1-$B4) 


7 ; RECUPERATION DU TYPE AHEAD 


72 | 

73 RECUP  STX STOCKEX 
74 LDX DEBUT 
75 CPX FIN 

76 BNE )0 

77 LDX STOCKEX 


78 ANCIEN JMP 40000 
79 ‘0 STA (#28) ,Y 


3BUFFER DE TYPE AHEAD VIDE? 


;ON SAUTE À L'ANCIEN KSWL 
37) NOP NOP POUR CERTAINS KSWL 
30N RECUPERE UNE TOUCHE 


3POUR NE PAS PERDRE LE REGISTRE X 
INDICE DU DEBUT DU STOCKAGE 


80 LDA TABLE ,X 
81 JSR INCRX 

82 STX DEBUT 

83 LDX STOCKEX 
84 RTS 

85 ; 

86 ;  INCREMENTE X CIRCULAIREMENT 
87 ; 

88 INCRX  INX 

89 CPX ATAILLE 
ñn BNE }0 

91 LDX #0 

92 ‘0 RTS 

93 ; 

94 ; OCTETS DE STOCKAGE 
95 ; 

96 STOCKEX HEX 00 

97 DEBUT  HEX 00 

98 FIN HEX 00 


99 TAILLE EPZ 60 
100 TABLE  DFS TAILLE 
101 END 


Récapitulation 


0300- A9 4C 85 B1 A9 29 85 B2 
0308- A9 03 85 B3 AD 35 AA 8D 
0310- 77 03 AD 56 AA 8D 78 03 
0318- A9 68 8D 55 AA A9 03 8D 
0320- 56 AA AD 92 03 8D 91 03 
0328- 68 AD 00 CO 10 31 C? 83 
0330- FO 07 2C 10 CO C9 98 DO 
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ÿINDICE DE LA FIN DU STOCKAGE 
ÿTAILLE DU TABLEAU DE STOCKAGE 


{TABLEAU DE STOCKAGE À LA FIN DU PROGRAMME 


0338- 09 AD 92 03 8D 91 03 4€ 
0340- SF 03 8E 90 03 AE 92 03 
0348- 9D 93 03 20 88 03 8E 92 
0350- 03 EC 91 03 DO Dé 20 88 
0358- 03 8E 91 03 AE 90 03 Eë 
0360- 88 DO 02 Eé B9 4C B7 00 
0368- 8E 90 03 AE 91 03 EC 92 
0370- 03 DO 06 AE 90 03 4C 00 
0378- 00 91 28 BD 93 03 20 88 
. 0380- 03 8E 91 03 AE 90 03 60 
0388- E8 E0 3C DO 02 A2 00 40 


ignoré. Pour déconnecter aussi le 
stockage, il suffit de rétablir 
CHRGET, soit en réinitalisant l'Ap- 
plesoft (avec FP, CTRL-B ou 3D3G 
depuis le moniteur), soit en créant 
une routine en assembleur qui réta- 
blit CHRGET (mais surtout pas avec 
des POKESs ! Pourquoi ?) 


e ‘type ahead” est pratiquement 
compatible avec tout programme Ap- 
plesoft à quelques restrictions près : 


- Il ne doit bien sûr pas se trouver au 
même endroit qu'une routine assem- 
bleur utilisée par le programme (en- 
trée par BLOAD, par DATA et 
POKE, ou bien par la routine de 
S.H. LAM, où une routine ‘’cachée” 
à la fin du programme). 


- Si le programme Applesoit lit direc- 
tement le clavier par PEEK(—16384),. 
il est évident que le ‘type ahead” ne 
sera pas pris en compte, mais atten- 
dra le prochain GET ou INPUT, ou 
la fin du programme et le retour au 
niveau de commande de l'Applesoift, 
toutes opérations qui utilisent la rou- 
tine d'entrée de caractères. 


- Si le programme Applesoft repro- 
gramme la sortie de caractères, il faut 
refaire un CALL 768 après cette re- 
programmation (si 768 est l'adresse 
où l'on a assemblé le ‘type ahead”). 
Dans la majorité des cas, il ne devrait 
pas y avoir de conflit entre la routine 
reprogrammée et le ‘type ahead”. 


- Ce ‘type ahead” est totalement al- 
lergique à PLE : il ne marche pas si 
PLE est présent. De plus, si le type 
ahead” est actif, le chargement de 
PLE peut conduire à une catastro- 


phe. 


- Les touches sont stockées au cours 
d'un CHRGET, c'est-à-dire quand 
l'interpréteur progresse dans le pro- 
gramme. Il est donc inutile d'espérer 
stocker des touches pendant les 
appels à des routines assembleur ou, 
ce qui revient au même, pendant un 
LIST, un PRINT d'une chaîne de ca- 
ractères, ou encore un ordre DOS... 
toutes ces routines n'utilisant pas 
CHRGET. 


- Attention à ne pas initialiser deux 
fois consécutives le “type ahead” 

sinon l'aiguillage de la routine d'en- 
trée de caractères va se ‘mordre la 


queue” et il faudra appuyer sur 
RESET.. 


Remarque: j'ai découvert après 
avoir rédigé cet article que le Diversi- 
DOS, un système d'exploitation ra- 
pide du commerce, possède une rou- 
tine de ‘type ahead” utilisant la 
même approche, mais qui marche 
aussi sous DOS et en mode moni- 
teur. Bien entendu, ce programme 
est plus gros et plus complexe. 





| 


“à 
LT 


Courrier des lecteurs 


Olivier Herz 


1 - Dans le programme Hello de la 
page 26 (Pom's 6). Je n'ai pas réussi 


à faire tourner le programme. 
Comment  définissez-vous  ‘*xAF: 
FEOC" ? 


2 - Avec la fonction EXEC, INIT me 
donne une disquette initialisée qui ne 
rend plus la main à l'écran : curseur 
rectangle clignotant. 


Andre Van Eggelpoel - 4 rue Porche- 
fontaine - 94370 Sucy en Brie 


1 - L'adresse $OCFE, qu'on met en 
$AF.BO (par *xAF:FE OC) dans le 
programme HELLO a été trouvée en 
assemblant le programme: c'est 
l'adresse de la fin du programme as- 
sembleur. En mettant cette adresse 
en $AF,BO qui est l'adresse de la fin 
du programme Applesoft, on peut 
cacher le programme assembleur 
dans le programme Applesoft. 


2 - INIT ne fait pas de bien belles 
choses avec un fichier EXEC. car ce 
fichier va chercher les commandes à 
effectuer sur la disquette qui, après 


initialisation, ne contient que des 





Je n'ai aucune formation informati- 
que. Je pourrais être un Appleomane 
presque heureux, mais voici que se 
pointe le langage machine, dont je 
ressens à travers la lecture de Pom's 
l'utilité et la nécessité. Je m'attèle à 
la tâche avec persévérance. J'avoue 
que les résultats ne sont pas toujours 
encourageants et regrette l'absence 
de livres ou de manuels assez clairs 
pour être compris d'emblée par les 
néophytes. Cherchant à initialiser 
ma Seikosha GP 100A en langage 
machine, j'ai essayé : 


1 - de mettre directement en $36- 
37 : OOCI:; l'imprimante s'initialise ef- 
fectivement, mais se borne à impri- 
mer le ‘*x°” du moniteur: 


2 - de faire un petit programme, qui 
hélas donne le même résultat que la 
tentative précédente : 

300: LDA #00 

LDX #C1 


STA $36 
STX $37 
RTS 
300G 


3 - en remplaçant le RTS ci-dessus 
par BRK, l'imprimante réagit toujours 
en imprimant ‘x ainsi que le 
contenu des registres qui apparais- 
sent à la suite du lancement de ce 
microprogramme, puis plus rien. 


L'ennui, c'est que depuis mes essais 
je n'arrive plus à initialiser l'impri- 
mante avec le classique ‘1 CTRL-P" 
à partir du moniteur, alors que le 
"PR# 1" en Basic est toujours opéra- 
tionnel. 


R. Burger - 67, rue Chauzy - 51800 
Ste. Menehould 


En réponse à votre lettre, voici quel- 
ques explications sur la reprogram- 
mation des entrées-sorties sur l'Ap- 
ple. 


a) Lorsque le DOS est absent : 


Les mémoires CSW ($36-37) et 
KSW ($38-39) contiennent l'adresse 
des routines de sortie et d'entrée de 
caractères. Par défaut, à l'initialisa- 
tion, ces adresses sont celles des rou- 
tines du moniteur COUT1. ($FDF0) 
et KEYIN ($FDOC). Pour changer les 
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Poste Principal: 
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Poste Terminal : 

* 1 unité de disque, une carte Super-Sérial. 

* 1 modem électrique ou acoustique avec porteuse. 

+ Transmission par le réseau commuté. 
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routines d’entrées-sorties, il suffit de 
changer CSW ou KSW, soit par des 
POKES, soit par un programme as- 
sembleur comme le vôtre. 


NB - Pour déconnecter le DOS, il 
suffit de faire ‘:PR#O:IN#0” sous 
l'Applesoft (cf. Pom's 7 page 26: 
trucs et astuces). 


b) Lorsque le DOS est présent : 


CSW et KSW contiennent les adres- 
ses des routines du DOS qui s'oc- 
cuppent des entrées-sorties ($9EBD 
et $9E81 pour un DOS 48K: rempla- 
cer $9E par $5E pour un 32K).Ces 
routines font, après traitement par le 
DOS, un saut aux véritables routines 
d'entrée et de sortie (KEYIN et 
COUTI par défaut après le boot), 
dont le DOS stocke les adresses en 
$SAA53-AA54 (vrai CSW) et $AA55- 
AA56 (vrai KSW). Notons que $AA.. 
devient $6A.. pour un DOS 32K. 


Il ne suffit plus, pour changer les en- 
trées-sorties, de changer CSW et 
KSW, car le DOS ‘trafique” ces 
adresses. Mais, au contraire, il y a 
deux solutions possibles équivalen- 
tes : 


- on fait suivre le changement de 
$36-37 ou $38-39 par un appel à 
INTDOS (CALL 1002 en Applesoft 
ou JMP $3EA en assembleur), qui 
est la routine du DOS qui reprend en 
main les entrées-sorties. Alors, le 
DOS rétablit ‘’ses” adresses ($9E81 
et $9EBD) en CSW et KSW et remet 
les valeurs que l'utilisateur y avait 
mises, en $AA.. Cette méthode pré- 
sente l'intérêt de fonctionner en 48K 
ou 32K. 


- on change directement les valeurs 
des “vrais” CSW et KSW ($AA..). 
Dès lors, cela n'a plus rien d'éton- 
nant que vos essais ne marchent pas. 
De plus, votre remarque sur "1 
CTRL-P" et “PR#1" s'explique très 
bien : faire “1 CTRL-P" depuis le 
moniteur ou ’:PR#1” pour l'Apple- 
soft (voir Pom's 7 page 26 pour l'uti- 
lité des deux-points) ne fait que 
changer CSW et donc ne marche 
que si le DOS est déconnecté ( de 
même, 1 CTRL-K"” et ":IN#1” ne 
changent que KSW/). Au contraire, le 
"PR#1” et le "IN#1” du DOS, que 
l'on peut faire sous Applesoft aussi 
bien que sous moniteur, font les 
choses correctement comme indiqué 
ci-dessus. 





Pourriez-vous me dire s'il existe une 
solution pour dépasser le nombre 
maximum de 105 titres au catalogue 
sur Apple ? Dans le cas qui m'inté- 
resse, il s'agit de l'exploitation d'une 
multitude de petits fichiers en Ap- 
plewrriter II 


Docteur J.-C. Selosse - 1 avenue 
Carnot - 62120 Aire sur la Lys 
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Malheureusement, il n'est pas possi- 
ble de mettre plus de 105 fichiers 
dans un catalogue, sauf à modifier la 
façon dont fonctionne le DOS. Ce 
que nous pouvons vous conseiller le 
cas échéant, c'est de regrouper plu- 
sieurs petits fichiers Applewriter en 
un seul. 


Vous mettez alors ’.ep0" au début 
de chaque fichier, pour bloquer l'im- 
pression du fichier. Pour imprimer le 
texte correspondant à un de ces fi- 
chiers originaux, il suffira de rempla- 
cer ‘’.ep0” par ‘epl” au début du 
texte avant de lancer l'impression. 
Cette recette fonctionne avec Ap- 
plewriter I] ou /’e. 





J'ai bien reçu le dernier numéro de 
Pom's avec sa disquette. En essayant 
le calendrier sur Visicalc, j'ai eu la 
surprise de constater un décalage des 
jours de la semaine à partir du 3 jan- 
vier 84, alors que tout est normal 
pour une année non bissextile. Je 
pense qu'il faut remplacer, dans la 
formule de J7, la cellule B6 par la 
cellule Dé, afin d'obtenir : 


>J7: + N6 — L6 +@IF(@AND( I7, 
D6 < 3), 32, 33) 


Vous m'obligerez en confirmant le 
bien-fondé de cette correction. 


Claude Coviaux - 351 Bd Pasteur - 
59500 Douai 


Vous avez parfaitement raison, ainsi 
que les nombreux autres lecteurs 
perspicaces avant émis la même re- 
marque : ce bug nous rassure d'ail- 
leurs beaucoup sur Olivier Herz. 
Nous en étions arrivés à nous de- 
mander s'il n'était pas un extra-ter- 
restre. Mais, puisque ‘errare huma- 
num est”, tout est pour le mieux 
dans le meilleur des mondes ! 





L'informatique peut donner des ap- 
plications intéressantes dans le do- 
maine de la physique. J'ai écrit un 
programme qui visualise de manière 
bien animée des ondes sur l'écran, 
ainsi que leurs interférences. Les 
ondes sont définies par l'utilisateur à 
l'aide de fonctions, ou choisies parmi 
les vingt exemples proposés. Ce 
même programme permet aussi de 
bien comprendre ce que signifie la 
mise à la vitesse v d'une onde sta- 
tionnaire, selon les transformations 
de Lorentz Ceci met en évidence le 
rapport qui existe entre les ondes et 
la relativité. 

J'ai également écrit un second pro- 
gramme sur les transformations de 
Lorentz, base de la relativité. Il per- 
met de visualiser le comportement 
des règles et horloges des systèmes 
de référence soumis à ces transfor- 


mations, et de mieux comprendre la 
signification de ces formules. 

La relativité et la mécanique des 
ondes ne sont pour. vous que des 
formules compliquées ! Voici des ani- 
mations et des visualisations qui vous 
permettront de mieux les aborder. 
Les programmes sont longs (16Ko 
chacun), le premier (Ondes et Relati- 
vité) étant pour moitié en langage 
machine, animation oblige. 


Serge Cabala - 13 rue du Pied de 
Roche - 25660 Saône 


Nous avons testé ces programmes 
qui sont maintenant bien au point, 
après un va-et-vient avec leur auteur. 
Nous ne pouvons les publier dans 
Pom's, compte tenu de la place 
qu'ils prendraient et de leur spécifi- 
cité. Contre un chèque de 100 FF 
pour remboursement de ses frais, 
l'auteur vous enverra les program- 
mes sur une disquette, avec deux ar- 
ticles d'accompagnement (14 pages). 
Jmæ 


Lecteur très intéressé de Pom's, car 
utilisateur de l'Apple Il. je suis tombé 
sur un os. On m'avait posé la ques- 
tion suivante : comment retrouver la 
position du curseur en HGR. pour 
balayer l'écran en testant la présence 
d'un dessin ? 


Exemple : un fichier de forme. avant 
été chargé, dessine une figure. puis 
on ajoute des points avec un pro- 
gramme  interactil On veut lire 
l'écran et savoir s'il v a un point en 
telle ou telle position de l'écran. 


Y a-til des PEEKs pour cela ? 
Comment procéder ? 


Guy Fombonne - Montrouvin - 
Tauxigny - 37310 Reignac 


En réponse à votre lettre, voici quel- 
ques précisions sur la fonction SCRN 
haute résolution sur Apple IL Pour 
tout ce qui concerne les détails tech- 
niques concernant l'organisation de 
la page haute résolution, je vous prie 
de vous reporter à mon article du 
numéro 5 sur HAIFA (pages 41-42), 
dont une des fonctions est justement 
le SCRN haute résolution. Si vous ne 
possédez pas le numéro 5, dont le 
second tirage est malheureusement 
épuisé, il vous faudra attendre la pa- 
rution (très prochaine) du recueil nu- 
méro 2 de Pom's. 


Eh non, il n'y a malheureusement 
pas dé PEEK qui dit si un point de 
l'écran est allumé ! C’est beaucoup 
plus complexe, car un PEEK de 
l'écran donne l’état de 7 points ali- 
gnés. Voir l’article de JF Duvivier : 
les adresses du graphique (Pom's 1 
page 35 ou recueil page 24). 


La meilleure méthode est d'employer 


un petit programme Applesoft dont 
petit prog 


| 
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Gagnez 


un \VOyage 


N S ë & 
Oui, vous êtes invités 
gratuitement à gagner 
un voyage d'une se- 


maine pour deux per- 
sonnes au pays de la micro-in formatique. 

MICRO-EXPO, 9° congrès-exposition, carrefour interna- 
tional de la micro-informatique se tiendra à Paris, au Palais des 
Congrès du 22 au 26 mai 1984. 

Visitez cette manifestation qui vous offrira la possibilité 
exceptionnelle de rencontrer et de dialoguer avec plus de 
200 exposants français et étrangers, de suivre une trentaine de 
conférences professionnelles et grand public : comment choi- 
sir son tableur électronique, les systèmes intégrés : 1 - 2 - 3, 
Lisa, Visi/On, MS-WIN, choisir son micro, comptabilité et 
bases de données, Basic...Découvrez les dernières nouveautés 
dont certaines seront présentées en exclusivité. 

La multiplicité et la diversité des produits et techniques 
présentés à ce grandrendez- === —_—— 
vous annuel constitueront y «mere 
pour vous la garantie du bon 
investissement et de la bonne 
décision. 


F A COMPLETER ET A RETOURNER A SYBEX 





= © En ON SN Œ HU un 
= 2 Z ET 
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je joins le listing. Il y a une astuce qui 
consiste à faire deux XDRAWSs suc- 
cessifs d’une shape qui ne comporte 
qu'un point. Ces XDRAWS consécu- 
tifs s'’annulent, mais si l'on relève la 
valeur du compteur de collision de 


après le second XDRAW. on trouve 
1 si le point où ont été faits les 
XDRAWS était allumé, 0 sinon. 


Bien sûr, si le programme dans le- 
quel vous utilisez ce SCRN haute ré- 


de shapes, il faudra changer l'adresse 
de début de table (232-233) à cha- 
que fois que vous utilisez une shape 
(pour indiquer soit la table du pro- 
gramme, soit la table du SCRN}. 


l'instruction DRAW (mémoire 234) solution possède lui-même une table | 
2 REM "SCREEN" HAUTE-RESOLUTION 1,0: POKE - 16304,0: HOME : 
UTAB 20: SCÂALE= 1: ROT= 0 
3 REM ===> 40 PRINT : INPUT "POINT CX,3Y) ? 
"saXSY 
50 XDRAW 1 AT X,Y: XDRAW 1 AT X, 
10 POKE 232,0: POKE 233,3: FOR 1 Y:SC = PEEK (234) 
= 768 TO 773: READ J: POKE 60 IF SC = 1 THEN PRINT "ALLUME 
1,J: NEXT “": GOTO 40 
20 DATA 1,0,4,0,4,0 70 PRINT "ETEINT'": GOTO 40 
30 POKE - 146297,0: POKE - 1630 


Tracé de courbes en conversationnel 


Ce petit programme permet d'intro- 
duire au terminal une fonction dont 
la variable est X et de la tracer sur la 
DOTE page graphique. Par exem- 
ple : | 


SIN(X) 
EXP(—X)SIN(X) 
(2*X)/(1—(X° 2)) 


Lorsque vous rentrez une fonction, 
vous devez bien sûr respecter une 
syntaxe compréhensible pour l’ordi- 
nateur (utilisez par exemple "3xX" et 
non ’3X"). 


Pour qu'il soit possible d'introduire la 
fonction en conversationnel, il est né- 
cessaire de ‘tokeniser” l'expression 
saisie au clavier: cette opération 


constitue l'objet du sous-programme 
assembleur B.TOKFON. Ce pro- 
gramme utilise deux routines de la 
ROM BASIC: le sous-programme 
GETLINE (en $D52C) qui corres- 
pond à la première partie de l'ins- 
truction INPUT, c'est à dire à la sai- 
sie d'une chaîne de caractères 
stockée à partir de l'adresse $200 et 
terminée par un 0. Ceci permet d'uti- 
liser immédiatement l'autre sous-pro- 
gramme TOKENI ($D56D - cf 
POM'S 7) qui tokenise la chaîne pré- 
cédemment saisie. 


Cette chaîne tokenisée est alors sto- 
ckée dans le programme BASIC à 
partir de l'adresse $080B qui corres- 


Gilles Mauffrey 


ment le signe = de la définition de la 
fonction. 

REMARQUE : si vous voulez modi- 
fier le programme n'oubliez pas de 
changer cette adresse ni de conserver 
une place suffisante pour la tokenisa- 
tion de la fonction. 


Le programme B.TOKFON contient 
une seconde partie qui permet le 
tracé de fonction en inverse (blan- 
chissement de la première page gra- 
phique). 


Le programme BASIC peut être 
agrémenté d'une ‘’Hard-Copy”, et 
peut également être assez facilement 
modifié pour réaliser le tracé de fonc- 
tions définies paramètriquement. mg 


pond à l'adresse qui suit immédiate- 


1 REM FONCTION CONVERSATIONNELLE 1 
30 INPUT "ABSCISSE D’ARRIVEE :"3:;X 
2 REM (APPLESOFT) 2 
U MAXIMUM SUR L’INTERVALLE 
40 MIN = FN FCX1)2:MAX = FN F(CX1) 
10 DEF FN F(X) = : REM  ATTENTI 
ON CETTE REMARQUE, TRES UTILE 42 PRINT : INPUT "VOULEZ VOUS LE 
EN FAIT, DOIT CONTENIR AUTAN GRAPHE EN INVERSE *;A4$ 
T DE TEXTE QUE POSSIBLE..CECI 45 10 = 0:J0 = MIN 
SERVIRA À METTRE LA TOKENISA 50 FOR 1 = 1 TO 280:X = X1 + (I - 
TION DE LA FONCTION ENTREE EN 13 % CX2 — X19 / 277:Y = FN 
CONVERSAT I ONNEL . ....RECOPIER FCX) : 
DONC CE TEXTE OÙ N'IMPORTE Q 60 IF Y < MI THEN MIN = Y 
UOI 70 IF Y > MAX THEN MAX = Y 
14 D$ = CHR$ (4): PRINT D$"BLOAD 80 NEXT I 
B.TOKFON" 81 HGR : HCOLOR= 7: IF LEFTS$ (A$ 
15 INVERSE : HOME : HTAB 10: UTAB 312 = "O* THEN CALL 812: HCOLOR= 
2: PRINT “ENTRER LA FONCTION 0 
A TRACER": NORMAL : PRINT : PRINT | 82 VTAB 22: PRINT *X VARIE DE *3X 
*"FOX)=";: CALL 768 13°" À "5x2 : 
20 INPUT "ABSCISSE DE DEPART :*3;X 85 PRINT 3 PRINT *Y VARIE DE jMI 
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N:;" À ";MAX 


86 JO = 191 >*x CJ0O - MIN) / (MAX — 
MIND: HPLOT 10,191 — JO 
90 FOR 1 = 2 TO 279:X = X1 + CI - 


100 Y 


110 


112 


115 
120 


124 
125 


127 


1) x CX2 —- X1) / 279 

‘FN FOX) :J = 191 x CY - MI 

ND / (MAX — MIN) 

HPLOT TO 1 —- 1,191 -— J: NEXT 
I 

REM TRACE DES AXES, S’ILS NE 
SORTENT PAS DE L’'EPURE 

IF MIN > Q THEN 127 


JO = 191 *x © — MIN) / (MAX - M 
IN) 
JO = INT (J0) 
HPLOT 0,191 - JO TO 279,191 -— 
JO 
IF X1 > O THEN 140 


130 10 = 279 * € - X1) / (X2 - X1) 

: HPLOT 10,0 TO 10,191 

FOR J = 1 TO 1000: NEXT 

REM EVENTUELLEMENT HARD COPY 
(PREMIERE PAGE EN ENTIER) 

PRINT "UOULEZ VOIR LA FONCTIO 

N EN ENTIER :"3;: INPUT A$ 

IF LEFT$ (A$,1) = "O" THEN POKE 
- 16302,0: FOR J = 1 TO 1000 

0: NEXT : POKE - 16301,0 

PRINT : PRINT : PRINT : INPUT 
“VOULEZ VOUS TRACER UNE AUTRE 
FONCTION ? ";4$ 
IF LEFT$ (A$,1) 
: GOTO 15 

TEXT 


135 
140 


145 


147 


150 


160 


= “O* THEN TEXT 


170 





Programme BTOKFON 
DOS TOOL KIT 


0300: 
00B8: 
DS52C: 
D56D: 
080B: 
0300 :A5 
0302:48 
0303:A5 
0305:48 
0306 :20 
0309 :A2 
030B:846 
030D:20 
0310 :497 
0312:99 
0315:88 
0316:49 
0318:99 
031B:88 
031C:B9 
031F:99 
0322:88 
0323:D0 
0325:68 
0326:85 
0328:68 
0329:85 
032B:60 
032C:A9 
032E:85 
0330 :85 
0332:A0 
0334:A9 
0336:85 
0338:A9 
0334 :91 
033C:C8 
033D:D0 
033F :Eé 
0341:Cé 
0343 :D0 
0345 :40 
72 


1 ORG +$300 
2 TXTPTR EQU $B8 
3 GETLIN EQU $DS2C 
4 TOKENI EQGU #$D56D 
5 PLACE EGU $80B 
B8 6 LDA TXTPTR 
7 PHA 
B9 8 LDA TXTPTR+1I 
9 PHA 
2C D5 10 JSR GETLIN 
00 11 LDX #00 
13 12 STX +13 
6éD D5 13 JSR TOKENI 
B2 14 LDA #178 
0B 08 15 STA PLACE, Y 
16 DEY 
34 17 LDA #H#$34 
0B 08 18 STA PLACE, Y 
19 DEY 
FC 01 20 TRF LDA $1FC,Y 
0B 08 21 STA PLACE,Y 
22 DEY 
F7 23 BNE TRF 
24 PLA 
B9 25 STA  TXTPTR+1 
26 PLA 
B8 27 STA  TXTPTR 
28 RTS 
20 29 LDA  ##$20 
ü1 30 STA 1 
02 31 STA 2 
00 32 LDY #00 
00 33 LDA #00 
00 34 STA 00 
FF 35 LDA H$FF 
00 36 BCL STA (00) ,Y 
37 INY 
FB 38 BNE BCL 
01 39 INC 1 
02 40 DEC 2 
F5 41 BNE BCL 
42 RTS 


3; *POUR LA TOKENISATION DE LA FONCTION 


;3* TOKEN DE REM 


3 *MISE ENPLACE DE LA TOKENI SATION 


RECAPITULATION 
0300- 
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Apple-Tellest un système qui fait d'un simple Apple 
(votre Apple de tousles jours) un minitel intelligent. 


of 0 


LT ET 





} 
CT fers 


ÇA 


EN 


AS 


LIT Tr) 


ss. 
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Apole -7ell] comprend: 


— Une carte Modem incluant un décodeur Teletel : 
— un logiciel d'Emulation de Terminal Minitel enrichi de trois éblouissantes fonctions (celles qui 
faisaient le plus défaut jusqu'à présent sur votre minitel) : 


IMPRESSION : l'imprimante @e votre Aopie est exploitée pour sortir les copies papier dont vous 
avez besoin lorsque vous consultez Un serveur. 


STOCKAGE : les disquettes @ votre Agple sont utilisées pour enregistrer les pages dont la 
consultation vous est nécessaire : 
* au format Teletel (c'est-à-dire telles que vous les avez reçues), 
* en mode Texte pur (ASCII) pour exploitation locale ultérieure. 


AUTOMATISME : l'intelligence æ votre Ano/e est mobilisée pour accomplir l'interrogation 
automatique du serveur que vous avez désigné (appel télépnonique, ortentation TRANSPAC, 
identification, choix successifs), enregistrer sur papier et/ou sur disque les données 
consultées, puis pour traiter celles-ci, en les incorporant dans votre application. 

(Les Procédures d'interrogation sont créées par l'utilisateur, sans aucun 
langage de programmation, grâce au mode Apprentissage d'Apple-Tell.) 


Evénement du dernier SICOB, salué par toute la presse, consacré Pomme d'Or 1983 par le jury 
Apple, le systeme Apple-Tell marque une mutation décisive dans l'évolution des techniques 
videotex en environnement professionnel : 

epoint d'arrêt à la prolifération des matériels sur votre bureau (effet “mini-Sicob") 

‘utilisation optimale des ressources dont vous disposez déjà (disques, imprimante, logiciels, etc..), 
utilisation possible en mode Terminal autant qu'en mode Serveur (Jusqu'à six portes), 

enfin (et c'est sans doute le point le plus important) JONCTION entre le monde extérieur et et les 
outils standard de votre Apple : l'incorporation de données dans Apple-Writer, Visicalc, 


Muitiplan, PFS, Quick-File, etc. et même dans vos applications personnelles (comptabilité, suivi 
de commandes, fichier ….) devient possible. 


Caractéristiques générales : 
- Modem multimodes : 


-1200/75,1200(half-duplex), 
600(helf-duplex), 300 (full-dupiex), 
“Standards CCITT et BELL (cette 
caractéristique unique rend accessibles les 
serveurs nord-américains, y compris par 
réseau téléphonique commute). 


° Sorties : video composite (N8B) et Perltel 
couleur. 


° Compatible Apple 2, Apple 2+, Apple 2e 
(48k, une disquette) 

* Enfichable dans n'importe quel slot libre de 
votre Apple 2. 


° Transparence totale vis-à-vis du système. 


BON DE COMMANDE 


HELLO Informatique - 1, 
Tél : (1) 523 30 34 


rue de Metz 75010 PARIS 
- Telex : FLASH 210500F 


Nom Société 


Adresse complète 


ville Code Postal téi. 


[3 Sounaite recevoir une documentation sur le système Apple-Tell 


[] Commande [| système(s) Apple-Tell au prix de F. 5900 H.T. 


(règlement ci-joint par : 


C] Chèque bancaire [|] ccp) 
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e la disquette HAIFA Source! ] au prix de 55 F la disquette (cf. Pom’s n° 5) 


le logiciel H-BASIC 
le logiciel MUSIC 
le Disk Manager 
DBSTAG (CP/M) 


[_] au prix de 150 F (cf. Pom’s n° 8) 
[_] au prix de 80 F (cf. Pom’s n° 10) 
[_] au prix de 450 F (cf Pom'’s n° 11) 
[_] au prix de 450 F (cf Pom'’s n° 11) 


Recueil n° 1 de Pom’s (n* 1 à 4) 
[_] avec ses 3 disquettes au prix de 270 F 


[_] sans disquette au prix de 120 F 
[ ] les 3 disquettes seules au prix de 150 F 


e Recueil n° 2 de Pom’s (n° 5 à 8) - Parution 15 avril 
[_] avec ses 4 disquettes au prix de 310 F 


[[] sans disquette au prix de 120 F 
[ ] les 4 disquettes seules au prix de 190 F 


Je désire recevoir : 


e les numéros de la revue Pom’s [ ]4 [17 []8 


au prix de 35 F le numéro 


e les numéros de la revue Pom’s | ]9 []10 [ ]11 


au prix de 40 F le numéro 


e les disquettes d'accompagnement des numéros 


O1 O2 03 04 05 06 07 O8 N9 10 Ou 


au prix de 55 F par disquette 


Je désire m’abonner pour 6 numéros à partir du n°... 


[_] sans disquette au prix de 200 F 
[_] avec disquettes au prix de 480 F 


TOTAL : 


Envoyez ce bon de commande et votre règlement à : 


Éditions MEV - 49, rue Lamartine - 78000 Versailles 


Nom 


Adresse 


Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 


Supplément avion : 10 F par numéro et / ou disquette 
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La nouvelle 
bibliothèque Apple 


des livres utiles pour concevoir 
vos propres programmes Sur Apple 


Jeux vidéo, jeux de demain 


CEDIC/NATHAN/LEP 
Les jeux vidéo et les jeux sur ordinateurs envahissent 


notre environnement. Pour se retrouver dans la 
jungle des envahisseurs, simulateurs de vol, football, 
joyeux voraces et autres aventures. pour mieux les 
comprendre et mieux les exploiter. voici des 
informations sur leur impact, des conseils sur la 
manière de les utiliser, et un banc d’essai des conso- 
les actuelles. 


1C0521 59,00 F 
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Ecrivons un programme pour Apple 


Pour vous amuser en apprenant la programmation sur un micro 
ordinateur qui semble doté de pouvoirs magiques. Vous apprendrez 
à lui donner des ordres en BASIC et, toutes sortes d’instructions. 
Vous pourrez vous en servir pour dessiner. Vous le comprendrez 
et vous saurez le faire fonctionner en ouvrant ce livre. 
1C0544 


Vous et l'ordinateur Apple 


Un livre pour tous ceux qui veulent connaître l’APPLE et s’en faire 
un ami. 

33 leçons pour apprendre à programmer en BASIC, chaque leçon 
est illustrée de commentaires, d'explications, de programmes et 
d'exercices complémentaires. 
1C0542 


99,00 F 


129,00 F 


Le Logo sur Apple 


Un livre pour faire l’apprentissage de LOGO, un moyen d'expression 
très puissant. D’une façon très vivante, ce livre explique les étapes 
à suivre pour concevoir et réaliser toutes sortes de projets. à partir 
de la tortue LOGO, ce célèbre petit animal cybernétique qui se 
déplace sur l’écran en laissant une trace derrière lui. 
1C0543 


129,00 F 
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LE COIN «APPLE» 
ET COMPATIBLE 


Moniteur couleur 

Moniteur carrossé pour Apple 12° ….....3520 F 
Carte RGB pour Apple Il + NT ODUE 
e Le moniteur idéal pour tout mini ou micro-ordinateur avec entrée 
RGB ° Totalement compatible avec les ordinateurs individuels 
Apple Ill et IBM sans aucune interface complémentaire e Cartes 
interfaces «RGB Il: disponibles pour compatibilité Apple IE. 


Floppy disk compatibles 


Strictement compatibles ces «floppy» sont garantis 1 an et commer- 
cialisés dans la version Half Size. De plus le Track to Track de 3 
millisecondes les classe parmi les plus rapides 5" 

Floppy sans contrôleur 2699 F avec contrôleur 38459 F 


oysticks pour Apple... 580 F 


LL ilité de commuter le levier en mode stable ou instable. 


Programmateur de mémoire 
EPROM pour APPLE 


Capable de programmer les 2708, 2716, 
2732, 2758, 2532. Complet testé 1868 F 


Alimentation à 
découpage 
Mèmes dimensions que l Tr ntation Apple 


soit + 5 V, 2,5 A + 12V 
— 12 V. 05 A, - 5 V. 0,5 Fa er ; 


Disques durs pour s'épit 


17800 F clés en main 
6,7 Mega octets compatibles. Dos 3.3 Pascal et CP/M. 


Carte RGB 80 colonnes. 1640 F 


pour Apple II E. 


Coffret type Apple 


avec découpe pour pavé numérique. 


Tarif Hard 
Clavier numérique ….. 
Carte A/0 16 voies... 
Carte horloge... 

Carte 16 K Apple Il + 1330 F 
+ Péritel. APPLE Il 


Interface Série. à Interface parallèle.…...1635 F 
Interface Parallèle. .1360 F Eur gi IL... es 
Interface Modem.....5700 F | Pascal 




































ES 


ÿ 


APPLE IE 

Carte 80 C... 998 F 
Carte 80 C + 64 KRAM2379F 
Carte 80 C + 64K 






Disk Apple... Visicalc… 
Carte PROTO. Apple Writer il. 
Poignées … dis Carte couleur 
Z 80 avec CPIM.... 3100 F | Péritélévision, 


CRE Lppe 


Carte langage ” sas DD: F 
Carte Z 80, Re. | Ni 
Carte 128 K RAM 2200 F 
Clavier type Apple. SES a LL 5 
Carte musicale... Den 1 LE 3 
Carte horloge ……. VANNES terre OUR 
Carte communication... Ft Fee sue 900 F 
Ventilateur... k A Re Ra 350 F 
Carte 6522 via RE AT .550 F 


BIENTÔT 


Une souris pour Apple Il + 
et ILE, Utilisable avec 69 K 
de RAM minimum et d'un 
lecteur avec contrôleur. Li- 
vrée avec son câble d'inter- 
face, une disquette de pré- 
sentation et son guide d'utili- 
sation 











Penta 8 


34, rue de Turin, 75008 PARIS. Tél. 293.41.33, 
Métro : Liège, St-Lazare, Place Clichy, Télex 614789 


Penta 13 


10, bd Arago, 75013 PARIS, Tél. 336.26.05. 
Métro : Gobelins (service correspondance et magasin} 


Penta 16 p 
£ 





5, rue Maurice Bourdet, 75016 PARIS. Tél, 524,23.16 
{Pont de Grenelle) - Métro Charles Michels, 
Bus 70/72 : Maison de l'ORTF 


pouvant variés en fonction des 


approvisionnements. 








+ l'Ordinateur Personnel 










* VISICALC (français) : traitement de planning, 
gestion, budget, finance, fabrication ..2700 F ARBRE nuit munies ve cet ci 1490 F 
* MULTIPLAN : Mêmes utilisations que VISI- 


CALC mais traitement d'écran plus sophisti- 


DR uenqregenaseessstame 2420 F 
+ VISIPLOT : fabrication de courbes ou d'histo- 


grammes à partir de données nié" 
Prix 


DECOUPEZ FE 
CE BON 
ASSURANCE 


LOGICIEL 
APPLE 


PENTASONIC s'engage à re- 
chercher et à démarrer avec 
vous parmi les logiciels stan- 
dards celui qui correspond 
exactement à VOS BESOINS 
TESTEZ LE PENDANT 
10 JOURS GRATUITEMENT 





DECOUPEz 3 -ÈE 


CE BON POUR 
BENEFICIER 
D'UN 
DEPANNAGE 
IMMEDIAT 

DE VOTRE 
MATERIEL 
APPLE 


Attention, il est préférable de 
prévenir nos techniciens de 
votre passage! 


A 1630 F 





PROMOTION 
APPLEIIE 


TA SERVICE 


1 3 500 ion fe 





e Apple soft 12 K ROM e RAM 64 K e Clavier AZERTY (français) ou 


QWERTY e Alimentation à découpage e Sortie vidéo. 


MONITEUR APPLE Bande passante 18 MHZ e TOP lignes à 40 us e 
Ecran vert e Modification de l'angle de vision e FLOPPY lecteur 5" e 
Capacité 143 K - Avec DOS 3,3 . Alimenté par l'unité centrale Il E. 


APPLE III 


256 K, avec disquette 5” 
et disque dur 5 Mjoctets 


430 UU avee 


e UC 6502, 256 K de RAM e 4 K de ROM e Affichage 80 x 24 . Ecran vert 
anti-reflet e Graphisme e Couleur e Clavier 74 touches e 5 MJoctets sur … 


disque dur. 


IMAGEWRITER, 


l'imprimante conçue pour votre Apple 


e 180 cps - moins de 53 dBA . Matricielle 7 x 9 
programmable 16 x 8 e Interface RS 232 e Mé- 
moire tampon 1 Ke Vitesse transfert 300, 1200, 
2400, 9600 « Kit accessoires Il ou Il 272 F. 


DUO-DISK, 


floppy double unité pour Apple 


e 2 x 140 K/o formatés e Kit accessoires 1135 F 


- ORCA : un des meilleurs assembleur pour 


* APPLE WRITER : traitement de texte .1572 F 


* BUSINESS GRAPHIQUE : traitement graphique *CX BASE 200 : 
des valeurs numériques ….............. 1375 F fichier … 
- APPLE FORTRAN : langage 1659 F *CX TEXTE : 


- QUICK FILE : traitement de fichier…..790 F 


a A SAT IE 
à Ra AVE 


BON POUR UN ESSAI GRATUIT. 


DE 10 JOURS 


Ce bon vous donne droit au prêt d'un logiciel APPLE précédé 
(3 d'un astérique dans notre publicité. A être guidé dans vos pre- 
= miers pas sur ce logiciel par un technicien PENTASONIC. 


TP Oran n° de série 


Date: d'988l.csssssensessssnenses Date de retour 


Cette offre n'est soumise à aucune obligation d'achat. || vous sera simple- 


ment demandé un chaque de caution. 


N DE DEPANNAGE MMENAT 
de votre matériel APPLE ou 
PRET D'UN APPLE EQUIVALENT 


Si le dépannage immédiat s'avère impossible“ 


Ce nouveau service PENTA-APPLE implique que le matériel soit 
d'origine PENTASONIC. Le dépannage s'effectuera dans un des 


points de vente PENTA. 
PENTAT(8113]6 





CX BASE 200 
* CX BASE 200 + CX TEXTE 


7580 


LOG ICI E LS A PP LE | | E à {* logiciels pouvant être prêtés aux conditions du «Bon à découper» ci-dessous.) 


- APPLE LOGO : initiation à la Dee et à la 
trigonométrie 1600 F 

- APPLE PASCAL : langage … 
création et traitement de 
3290 F 


traitement de texte interactif avec 
1190 F 
..3990 F 





